
07/08/2004, 23:13
|
 | | | Fecha de Ingreso: diciembre-2003 Ubicación: Frente al Monitor
Mensajes: 252
Antigüedad: 21 años, 4 meses Puntos: 0 | |
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. |