Falla en Login y Password.

[Cuezaltzin]

Hola a todos, estoy tratando de hacer un autentificador de usuarios, pero siempre me manda a la misma pagina de usuario no registrado aunque esten bien el login y contraseña. Cual es mi error les pongo mi codigo para que me digan cuale es mi falla. Gracias.

<%
Dim TxtLogin
Dim TxtPassword

TxtLogin = Request.Form("TxtLogin")
TxtPassword = Request.Form("TxtPassword")

Set Conn = Server.CreateObject("ADODB.Connection")
Set tabla = Server.CreateObject ("ADODB.RecordSet")
BDD="DRIVER={SQL Server};SERVER=YESSICA;UID=;PWD=;DATABASE=Administ rador"
Conn.open BDD

SQL = "SELECT Password FROM Usuarios Where Login ='" & TxtLogin & "' "

tabla.ActiveConnection=BDD
tabla.Open SQL

IF NOT tabla.EOF THEN

Session("blnIsUserGood") = True

If (Request.Form("TxtPassword")) = tabla("Password") Then

Response.Redirect"Bienvenidos?Login=" & TxtPassword


Set Conn = Nothing
Set BDD = Nothing
Set tabla = Nothing


END IF
END IF

Session("blnIsUserGood") = False
Response.Redirect"unauthorised_user_page.htm"

Set Conn = Nothing
Set BDD = Nothing
Set tabla = Nothing


%>

[yoelcuba]

Debes chequear los valores de la base de datos con los entrados por el usuario. No se si me entiendes pero como ves coloque en un ciclo el chequeo de los valores. AH! debes colocar el nombre de los campos de tu tabla de usuarios correctamente donde escribi Campo_con_Login y Campo_con_Password. Si tienes alguna duda o el codigo no funciona bien por aqui estare.

Saludos

<%
Dim TxtLogin
Dim TxtPassword

TxtLogin = Request.Form("TxtLogin")
TxtPassword = Request.Form("TxtPassword")

Set Conn = Server.CreateObject("ADODB.Connection")
Set tabla = Server.CreateObject ("ADODB.RecordSet")
BDD="DRIVER={SQL Server};SERVER=YESSICA;UID=;PWD=;DATABASE=Administ rador"
Conn.open BDD

SQL = "SELECT Password FROM Usuarios"
tabla.ActiveConnection=BDD
tabla.Open SQL

While not tabla.EOF
Login = tabla.Fields("Campo_con_Login").Value
Password = tabla.Fields("Campo_con_Password").Value

If (TxtLogin = Login AND TxtPassword = Password) Then
Session("blnIsUserGood") = True
Response.Redirect"Bienvenidos?Login=" & TxtPassword
End If
tabla.MoveNext
Wend

Set Conn = Nothing
Set BDD = Nothing
Set tabla = Nothing

Session("blnIsUserGood") = False
Response.Redirect"unauthorised_user_page.htm"

[wilby]

Tal como lo tienes, debes escribir exactamente lo mismo en el formulario a como está grabado en la base de datos. Prueba a cambiar esta línea a ver...

If (UCase(Trim(Request.Form("TxtPassword")))) = UCase(Trim(tabla("Password"))) Then


saludos = saludos + 1

[wilby]

ejem, con los parentesis... de todas formas prueba esto mejor:

If UCase(Trim(TxtPassword)) = UCase(Trim(tabla("Password"))) Then