Ver Mensaje Individual
  #1 (permalink)  
Antiguo 30/04/2002, 18:35
AeSePe
Invitado
 
Mensajes: n/a
Puntos:
Ayuda con error en script!!

Tengo un login de usuario y contraseña, cuando el visitante llena estos datos, entra a una pàgina dodnde se fija si estos datos son verdaderos o falsos...
El problema està con los cockies, y me canta error, acà esta el còdigo...
¿Alguien me puede decir el error que estoy cometiendo?
<%
If Request.Form("usuario") = "" OR Request.Form("password") = "" then
Response.Redirect "usuarios.asp"
Else
Dim usuario, password, oConn, RS
usuario = Trim(Request.Form("usuario"))
password = Trim(Request.Form("password"))
Set oConn = Server.CreateObject ("ADODB.Connection")
Set RS = Server.CreateObject ("ADODB.RecordSet")
oConn.Open "DRIVER={Microsoft Access Driver (*.mdb)}; DBQ=" & Server.MapPath("usuarios.mdb")
sql = "SELECT * FROM Tabla1 WHERE usuario='"&usuario&"'"
RS.Open sql, oConn
If RS.EOF = True then
Response.Write "<BR>Ese usuario no existe"
ElseIf RS.Fields("password") = password then
usuario=Request.Cookies("usuario")
Response.Cookies("usuario").Expires = Date + 1
Response.Write "<B>"& usuario &"</B>"%>
<%Else
Response.Write "<BR>Usuario o contraseña no vàlida"
End If
RS.Close
oConn.Close
Set RS = Nothing
Set oConn = Nothing
End If
%>