Hola Amigos, tengo el siguiente código que saque de una web recomendada de MDW, hice todo tal cual pero al momento de validar Usuario y Contraseña no las reconoce, al parecer no va a revisar la base de datos, alguien podria ayudarme? estara mal la ruta?
Gracias :)
Dim Conn, cStr, sql, RS, username, userpwd
username = Request.Form("username")
userpwd = Request.Form("userpwd")
Set Conn = Server.CreateObject("ADODB.Connection")
cStr = "DRIVER={Microsoft Access Driver (*.mdb)};"
cStr = cStr & "DBQ=" & Server.MapPath("\Inetpub\wwwroot\_private\pas swordhowto.mdb") & ";"
Conn.Open(cStr)
sql = "select username from usertable where username = '" & LCase(username) & "'"
sql = sql & " and userpwd = '" & LCase(userpwd) & "'"
Set RS = Conn.Execute(sql)
If RS.BOF And RS.EOF Then
Error_Msg = "Login Failed. Try Again."
ShowLogin
Else
Session("UserLoggedIn") = "true"
Response.Redirect "protectedpage2.asp"
End If
End Sub