<%@LANGUAGE="VBSCRIPT"%>
<%
Function LoginForm()
Response.Write "<form method=""post"" action=""" & Request.ServerVariables("SCRIPT_NAME") & """>" &_
"Username: <input type=""text"" name=""username""><br>" &_
"Password: <input type=""text"" name=""pwd""><br>" &_
"<input type=""submit"" value=""Login"">" &_
"</form>"
Response.End
End Function
Function Login()
user = Replace(Request.Form("username"),"'","`")
pwd = Replace(Request.Form("pwd"),"'","`")
If Len(Request.Form)<>0 Then
If user="prova" AND pwd="jacoz" Then
Session("Admin")="si"
Session.Timeout=20
Response.Redirect Request.ServerVariables("SCRIPT_NAME")
Response.End
Else
Call LoginForm
End If
Else
Call LoginForm
End If
End Function
If Session("Admin")<>"si" Then
Call Login()
End If
%>