Ver Mensaje Individual
  #1 (permalink)  
Antiguo 07/08/2004, 23:13
Avatar de Cuezaltzin
Cuezaltzin
 
Fecha de Ingreso: diciembre-2003
Ubicación: Frente al Monitor
Mensajes: 252
Antigüedad: 21 años, 4 meses
Puntos: 0
Exclamación Falla en Login y Password.

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


%>
__________________
Hasta la victoria Siempre.