<%
Response.Expires = -1000
Response.Buffer = True
%>
<html>
<head><title>Login</title>
</head>
<body>
<%
If Request.Form("submit") ="Login" Then
CheckLoginForm
Else
ShowLoginForm
End If
%>
<%
Sub CheckLoginForm
'revisa si el valor de los campos username y password estan correctos
If Request.Form("username") =
"Admin" AND Request.Form("password") =
"Letmein" Then
Session("BlnLoggedIn") = True
Response.Redirect "cargar.asp"
Else
'si estan equivocados se despliega el siguiente mensaje
Response.Write "<div align='center'>No puedes entrar.</div><br>"
ShowLoginForm
End If
End Sub
%>
<% Sub ShowLoginForm %>
<div align='center'>
'Creamos el formulario
<form name="form" action="login.asp" method="post">
<table>
<tr><td>Nombre :</td><td><input type="text" name="username"></td></tr>
<tr><td>Contraseña : </td><td><input type="password" name="password"></td></tr>
<tr><td colspan="2"><input type="submit" name="submit" value="Login"></td></tr>
</table>
</form>
</div>
<% End Sub %>
</body>
</html>
Y listo
Noten que donde dice
Response.Redirect "cargar.asp" es la pagina a donde vamos a accesar para crear la informacion. La contraseña para accesar es Letmein y el nombre del usuario es Admin. Esto se puede cambiar por el usuario y la contraseña que ustedes elijan.