Falla en Login y Password.

[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"