el codigo esta formado por dos páginas:
PAGINA 1:
<body>
<FORM ACTION="pagina2.asp" METHOD="post"><BR>
<B>Usuario:</B> <INPUT NAME="usuario" SIZE="12"><BR>
<B>Contraseña:</B> <INPUT NAME="password" SIZE="12"><BR><BR>
<INPUT TYPE="Submit" VALUE="Ingresar">
</FORM>
</body>
PAGINA 2:
<body>
<p>
<%
Dim usuario, password, oConn, RS
'Primero nos fijamos si ambos campos fueron completados.
'Si no se cumple, redireccionamos a pagina1.asp
If Request.Form("usuario") = "" OR Request.Form("password") = "" then
Response.Redirect "pagina1.asp"
Else
'Guardamos los datos del Form en variables y evitamos la comilla simple
usuario = Trim(Request.Form("usuario"))
password = Trim(Request.Form("password"))
usuario = Replace(usuario,"'","''")
password = Replace(password,"'","''")
'Conectamos a nuestra BD.
Set oConn = Server.CreateObject ("ADODB.Connection")
oConn.Open "Provider=Microsoft.Jet.OLEDB.4.0; Data Source="& Server.MapPath("./basedatos.mdb")
'Seleccionamos de la tabla solo los registros que concuerden con el usuario del Form.
sql = "SELECT * FROM basedatos WHERE usuario = '"& usuario &"'"
Set RS = Server.CreateObject ("ADODB.RecordSet")
RS.Open sql, oConn
'Si el valor EOF (fin de la tabla elegida) es verdadero, no existe el usuario.
If (RS.EOF = true) then
Response.Write "Ese usuario no existe"
ElseIf RS.Fields("password") = password then 'Si el campo de la tabla es igual a nuestra variable, estas logueado.
Response.Write "Te logueaste con exito... Bienvenido <B>"& usuario &"</B>"
Else 'Otra cosa, seria cuando el password no es la que seleccionamos.
Response.Write "Esa contraseña no concuerda con el usuario ingresado"
End If
'Limpiamos y cerramos.
RS.Close
oConn.Close
Set RS = Nothing
Set oConn = Nothing
End If
%>
</p>
<p> </p>
</body>
LA BASE DE DATOS SIMPLEMENTE TIENE UNA TABLA CON ID, USUARIO Y CLAVE
PERO CUANDO PONGO EL USUARIO CORRECTO Y LA CLAVE CORRECTA ME DICE "Esa contraseña no concuerda con el usuario ingresado" Y NO ENCUENTRO EL FALLO ALGUIEN ME PODRIA AYUDAR Y PROBAR EL CODIGO HABER DONDE ESTA EL ERROR???
Despues de probar varios codigos el problema viene cuando desde la páginaintenta comunicarse con la BB.DD, no se si es que no puedo conectar con el servidor para grabar datos o me falta algun archivo en el servidor o algo asi. Si alguien pudiera comprobar este codigo.... o pasarme alguno que este comprobado que funcione.... (
[email protected])
ETERNAMENTE AGRADECIDO