staticiation

<% dim parola
parola="admin"
If Session("adminisrator" )<> parola Then
If request("adminisrator" )<> parola Then
Call parolaform
Else
Session("adminisrator" )=parola
End If
End If
%>

<% Sub parolaform
gir = "http://" &Request.ServerVariables("http_host" )& Request.ServerVariables("url" )
%>

<form method="POST" action="<%=gir %>">
<p align="center"><input type="text" name="adminisrator" size="20"></p>
<p align="center"><input type="submit" value="Gonder" name="admin"></p>
</form>

</body>

</html>

<% response.End
End Sub
%>

__________________