<%
dim parola
parola = "bayti"
if session("administrator") <> parola then
if request.form("administrator") <> parola then
call parolaform
else
session("administrator") = parola
end if
end if
%>
<%
sub parolaform
aynen = "http://" & Request.ServerVariables("HTTP_HOST") & Request.ServerVariables("URL")
%><head>
<title>Giris....</title>
</head>
<p align="center"><b>Administrator Olmadan Buralarda Gezemezsiniz... :D</b>
<form method=post action="<%=aynen%>">
<p align="center">
<input type="password" name="administrator" value="" size="20" class="form">
<br>
<input type="submit" value="hade..." class="form">
</form>
<%
response.end
end sub
%>