ayuda validacion usuarios

JOSOCLI · #1 (**permalink**) 22/08/2007, 15:53

estoy intentando crear una zona de usuarios y me da error, creia que el problema esta en el codigo, pero ¿necesito subir algun fichero al servidor para que me ejecute la conexion en la base de datos? el problema lo tengo cuando relleno el formulario y hay que conectar con la base de datos.....

gorka_22 · #2 (**permalink**) 22/08/2007, 17:23

Podrías poner el codigo y el error que te da? con solo estos datos que nos das, va a ser que no será posible ayudarte...

JOSOCLI · #3 (**permalink**) 23/08/2007, 06:01

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

JuanRAPerez · #4 (**permalink**) 23/08/2007, 14:04

proba esto asi:

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 &"'" and password = '"& password &"'"
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"
Else '
Response.Write "Te logueaste con exito... Bienvenido <B>"& usuario &"</B>"
End If

y es clave o password el nombde del campo?????