21/07/2004, 13:16
|
 | Colaborador | | Fecha de Ingreso: febrero-2001 Ubicación: 34.517 S, 58.500 O
Mensajes: 14.550
Antigüedad: 24 años, 2 meses Puntos: 535 | |
| comienzo de archivo (Begining Of File, aunque tengo dudas si begining está corresctamente escrito)
Bueno, yo lo haría sí:
<%
Dim usuario, password
set conexion = Server.Createobject("adodb.connection")
strconn = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & Server.MapPath("amigos.mdb")
conexion.open strconn
If Request.Form("logina") = "" OR Request.Form("contraseña") = "" then
Response.Redirect "user.htm"
Else
usuario = Trim(Request.Form("logina"))
password = Trim(Request.Form("contraseña"))
usuario = Replace(usuario,"'","''")
password = Replace(password,"'","''")
'autorizacion= true <- esto no sé para qué está
sql= "select * from personass where nomAmigo='"&request.form("logina") &"' AND contraseña = '" & password & "'"
set RS= conexion.execute(sql)
If (RS.EOF AND RS.BOF) then
Response.Write "Ese usuario no existe o ingresó erroneamente la contraseña"
'ElseIf RS.Fields("contraseña") = password then
else
Response.Write "Te logueaste con exito... Bienvenido <B>"& usuario &"</B>"
End If
RS.Close
Set RS = Nothing
End If
%>
Sólo un par de detalles... tratá de no usar "ñ" ni letras con tildes tanto en el nombre de los campos de la tabla como en el nombre de los campos de un formulario (lo que está en negritas). Además, coloqué la comprobación del par usuario/contraseña todo en la SQL.. así te ahorrás un paso.
sañludos |