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")
xContraseña = Request.Form("pas")

'Si no se han completado los campos le envio a una página de error
If xNombre = "" OR xContraseña = "" 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") = xContraseña then
'Si el campo de la tabla es igual a nuestra variable entra en la pagina.
Response.Redirect "noticias.htm"
Else
'La contraseña para ese usuario no es válida.
Response.Redirect "fallo.htm"
End if
End If
END IF

'Cierro la sesión.
oconn.Close
Set oconn=Nothing
%>