Este es el código de la pagina a la que quiero accesar:
Cita:
Pues me marca un error en los filtros, pero no se como configurarlos adecuadamente, espero que me puedan ayudar, de antemano gracias. <%
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 = "nombre"
pass = "clave"
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
%>
<HTML>
<BODY BGCOLOR="#AAECE6">
<P ALIGN="center" STYLE="font-family:Verdana;font-size:12;color:#336699;"><B>Ingreso privado para usuarios</B></P>
<HR WIDTH="300"><BR>
<TABLE WIDTH="300" ALIGN="center" BORDER="0" CELLPADDING="2" CELLSPACING="2">
<FORM METHOD="post" ACTION="<%= Request.ServerVariables("SCRIPT_NAME")%>">
<TR><TD ALIGN="right">Usuario:</TD><TD><INPUT TYPE="Text" NAME="usuario"></TD></TR>
<TR><TD ALIGN="right">Clave:</TD><TD><INPUT TYPE="Password" NAME="clave"></TD></TR>
<TR><TD ALIGN="center" COLSPAN="2"><INPUT STYLE="font-family:Verdana; font-size:11px" TYPE="Submit" VALUE="Ingresar"></TD></TR>
</FORM>
</TABLE>
<HR WIDTH="300">
<P ALIGN="center" STYLE="font-family:Verdana;font-size:12;color:#336699;">Status: <%=mensaje%></P>
</BODY>
</HTML>
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 = "nombre"
pass = "clave"
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
%>
<HTML>
<BODY BGCOLOR="#AAECE6">
<P ALIGN="center" STYLE="font-family:Verdana;font-size:12;color:#336699;"><B>Ingreso privado para usuarios</B></P>
<HR WIDTH="300"><BR>
<TABLE WIDTH="300" ALIGN="center" BORDER="0" CELLPADDING="2" CELLSPACING="2">
<FORM METHOD="post" ACTION="<%= Request.ServerVariables("SCRIPT_NAME")%>">
<TR><TD ALIGN="right">Usuario:</TD><TD><INPUT TYPE="Text" NAME="usuario"></TD></TR>
<TR><TD ALIGN="right">Clave:</TD><TD><INPUT TYPE="Password" NAME="clave"></TD></TR>
<TR><TD ALIGN="center" COLSPAN="2"><INPUT STYLE="font-family:Verdana; font-size:11px" TYPE="Submit" VALUE="Ingresar"></TD></TR>
</FORM>
</TABLE>
<HR WIDTH="300">
<P ALIGN="center" STYLE="font-family:Verdana;font-size:12;color:#336699;">Status: <%=mensaje%></P>
</BODY>
</HTML>