PROBLEMA CON ASP - ACCESS, ALGUIEN ME AYUDA?

speakloud
03 de Marzo del 2003
<% @LANGUAGE="VBSCRIPT" %>
<%

'Conecto a la BD.
Set oconn = Server.CreateObject("ADODB.Connection")
oconn.Open("DRIVER={Microsoft Access Driver(*.mdb)}; DBQ="&Server.MapPath("speaklouddbusuarios.mdb"))

'Guardo los datos del Form en variables
xNombre = Request.Form("nom")
xContrasea = Request.Form("pas")

'Si no se han completado los campos le envio a una pgina de error
If xNombre = "" OR xContrasea = "" then
Response.Redirect "errorLogin.htm"

ELSE
'Selecciono de la tabla solo los registros que concuerden con el usuario introducido.
sql = "SELECT * FROM USUARIO WHERE NomUsu = '" & xNombre & "'"
Set RS = oconn.execute(sql)

'Si el valor EOF es true significa que no se ha dado de alta un usuario con ese login.
If (RS.EOF = true) then
Response.Redirect "fallo.htm"
Else If RS("PasUsu") = xContrasea then
'Si el campo de la tabla es igual a nuestra variable entra en la pagina.
Response.Redirect "noticias.htm"
Else
'La contrasea para ese usuario no es vlida.
Response.Redirect "fallo.htm"
End if
End If
END IF

'Cierro la sesin.
oconn.Close
Set oconn=Nothing
%>