cookies y contraseñas

[a9f3]

Hola de nuevo, gracias pr tu ayuda

El código es este, a ver q fallo ves tú




<%
Response.Buffer = True

Dim usuario, contrasena

usuario = CStr(Request.form("usuario"))
contrasena = CStr(Request.form("contrasena"))


' miro a ver si la autentificacione es correcta
'creo una sentencia SQL con los datos recibidos
ssql = "select * from usuarios_autentificacion where nombre_usuario='" & request.form("usuario") & "' and clave_usuario='" & request.form("contrasena") & "'"
'conecto y extraigo de la base de datos
Set Conn = Server.CreateObject("ADODB.Connection")
Conn.Open "Driver={Microsoft Access Driver (*.mdb)}; " & "Dbq=" & Server.MapPath("/user_er/base_autentificacion.mdb")
set RS = Conn.Execute(sSQL)


if not RS.bof then


response.cookies("usuario")= usuario
response.cookies("contrasena")= contrasena


'Como se ha localizado un registro es que ese usuario existe y su contraseña es correcta
'coloco las variables de sesion una vez identificado
session("autentificado") = "si"


'redirecciono a la página de la aplicación
response.redirect "aplicacion.asp"

else
response.redirect "priv_zone.asp"
end if


'cierro la conexion con base de datos
Conn.Close
%>




GRACIAS DE NUEVO