<%@LANGUAGE="VBSCRIPT" CODEPAGE="1252"%>
<%
'Se recogen las variables
usrlogin = Request.Form("usrlogin")
IF usrlogin = 1 THEN
Set rs1 = objConn3.execute("SELECT * FROM usrpw WHERE user = '"& Request.Form("user") &"'")
IF Request.Form("pw")= "" THEN
msgerror = "No ingresó una contraseña"
ELSE
IF rs1.EOF THEN
msgerror = "El usuario no está registrado"
ELSE
IF Request.Form("pw") = rs1("password") THEN
Session("logged") = True
Session("user") = Request.Form("user")
Session("codigo") = rs1("codigo")
ELSE
msgerror = "El usuario y la contraseña no coinciden"
Session("logged") = False
END IF
END IF
END IF
END IF
IF Session("logged") = False THEN
'Muestra el login page
%>
<%
ELSE
'Se muestra el menu
Response.Redirect("menuclientes.asp")
END IF
%>
