La solucion al error del codigo anterior fue quitarle el guion (-) al campo e-mail, lo deje solo email y funciono, gracias GenX
Ahora tengo un problema con el siguiente codigo, no me redirecciona y sale este error
objeto Response error 'ASP 0156 : 80004005'
Error de encabezado
/pruebas/password/login.asp, line 40
Los enbezados HTTP ya están escritas en el explorador cliente. Cualquier cambio en el encabezado HTTP se debe hacer antes de escribir el contenido de la página.
el codigo es:
<html>
<head>
<title>Untitled Document</title>
<meta http-equiv="Content-Type" content="text/html; charset=iso-8859-1">
</head>
<body bgcolor="#FFFFFF" text="#000000">
<%
'Para los redireccionamientos
'Response.Buffer=True
Dim oConn, rs, SQL, nombre, password
'recogemos el formulario
nombre=Trim(Request.Form("Nombre"))
password=Trim(Request.Form("password"))
'si no lo ha enviado, mostramos el formulario de nuevo
if nombre="" then
MostrarFormulario
else
'Validamos su identidad
set oConn=Server.CreateObject("ADODB.Connection&q uot;)
oConn.Open "DRIVER={Microsoft Access Driver (*.mdb)}; DBQ=" & Server.MapPath("users.mdb")
SQL="SELECT Id_USUARIO, Login, Password FROM " & _
"datos WHERE (Login='"&nombre&"' AND Password='"&password&"');"
'Ejecutamos consulta
set rs=oConn.Execute(SQL)
if rs.EOF then
'No existe ese usuario con esa contraseña
'Así que le negamos el acceso
Response.Write("Lo siento, no existe ese usuario/contraseña.")
else
'Le mandamos a la pagina de bienvenida
Response.Redirect("default.asp")
end if
end if
sub MostrarFormulario
Response.Write("<FORM METHOD=""post"" ACTION=""login.asp"">" )
Response.Write("<INPUT TYPE=""text"" NAME=""Nombre""><BR>& quot;)
Response.Write("<INPUT TYPE=""password"" NAME=""Password""><BR> ;")
Response.Write("Entre su nombre de usuario y contraseña -<INPUT TYPE=""submit"">")
End Sub 'MostrarFormulario
%>
</body>
</html>
