<%
if request.form("usuario") <> "" and request.form("clave") <> ""then
'Los contenidos de las siguientes variables son los aceptados por el script
'Cambiarlos para modificar el usuario y password válidos...
user = "gemfe"
pass = "040475"
if (Lcase(request.form("usuario")) = LCase(user)) AND (LCase(request.form("clave")) = Lcase(pass)) then
session("autorizado") = user
response.redirect "privado.asp"
else
mensaje = "Error de logueo"
end if
else
mensaje = "Ingrese usuario y password"
end if
%>
AREA RESTRINGIDA PARA USUARIOS DE MEDICINA FELINA (GEMFE)
Status: <%=mensaje%>