<%@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
%>