Problema de Sesion

[Veronicalismar]

este es el codigo para loguearse

<%
'Set Conn = Server.CreateObject("ADODB.Connection")
'sConnection = "Provider=Microsoft.Jet.OLEDB.4.0;" & _
' "Data Source=\\premfs5\sites\premium10\rodovias\database \db1.mdb;" & _
' "Persist Security Info=False"
'Conn.Open(sConnection)

Set Con = Server.CreateObject ("ADODB.Connection")
Con.Open "driver={SQL Server};server=website; database=evenres; uid=sa;pwd=sa"

%>

<%
dim login
dim password
dim sSQL
dim rs
login = request.form("txtLogin")
password = request.form("txtPassword")

if login = "" or password = "" then
response.redirect "sesion.asp"
else
sSQL= " SELECT administrador.login, administrador.nombre, administrador.password FROM administrador WHERE administrador.login='"&login&"' and administrador.password='"&password&"';"
set rs = con.Execute(sSQL)
if rs.eof and rs.bof then
response.redirect "administradorno.asp"
else
dim val
dim snombre
snombre=rs.fields("nombre")
Session("username") = rs.fields("nombre")
response.redirect "sesion_pass.asp"
end if
rs.close
set rs = nothing
end if

%>