<!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.01 Transitional//EN">
<!-- #include file="../library.asp"-->
<!-- #include file="../da.asp"-->
<LINK REL=STYLESHEET TYPE='text/css' HREF='../main.css'>
<head>
<title>Inserte Usuario y Password</title>
</head>
<body>
<% telefono=request("tlfo") %>
<%
if request.form("usuario") <> "" and request.form("clave") <> "" then
user = "usuario que quieras"
pass = "clave que quieras"
if (Lcase(request.form("usuario")) = LCase(user)) AND (LCase(request.form("clave")) = Lcase(pass)) then
session("autorizado") = user %>
<script language="VBScript">
window.close()
popUpName "verObservaciones.asp?tlfo=<%= telefono %>",500,200,400,25,"VerObservaciones"
</script>
<%' response.redirect "ver.asp?tlfo="&tlfo
else
mensaje = "Vuelva a intentarlo"
end if
else
mensaje = "Inserte usuario y password"
end if
%>
<table width="90%" align="center" border="1" cellpadding="0" cellspacing="0">
<tr>
<td align="center"><span id="TABLESBLUEGREY">INSERTE USUARIO Y PASSWORD</span></td>
</tr>
</table>
<br>
<TABLE WIDTH="80%" ALIGN="center" BORDER="0" CELLPADDING="2" CELLSPACING="2">
<form method="post" action="<%= Request.ServerVariables("SCRIPT_NAME")%>">
<input type="Hidden" name="tlfo" id="tlfo" value="<%= telefono %>">
<TR><TD ><span id="etiquetaDetalle"><b>Usuario:</b></span></TD><TD><INPUT TYPE="Text" class="AzulText" NAME="usuario"></TD></TR>
<TR><TD ><span id="etiquetaDetalle"><b>Password:</b></span></TD><TD><INPUT TYPE="Password" class="AzulText" NAME="clave"></TD></TR>
<TR><TD ALIGN="center" COLSPAN="2"><INPUT class="AzulText" TYPE="Submit" VALUE="Aceptar"></TD></TR>
</FORM>
</TABLE>
<HR WIDTH="300">
<P ALIGN="center" STYLE="font-family:Verdana;font-size:12;color:#336699;">Status: <%=mensaje%></P>
</body>
</html>
Esta es muy sencilla espero que te sirva
Saludos