Sayfalara Parola Koruması Eklemek

[PeeRLeeSS]

<%if request("cikis")="evet" then session("administrator") = "yok"
if request("cikis")="evet" then response.redirect Request.ServerVariables("HTTP_REFERER")
%>

<%
dim parola
parola = "forumsordum" ‘---> Parolanızı yazın
if session("administrator") <> parola then
if request.form("administrator") <> parola then
call parolaform
else
session("administrator") = parola
end if
end if
%>

<%
sub parolaform
parolasayfa = "http://" & Request.ServerVariables("HTTP_HOST") & Request.ServerVariables("URL")
%>

<%'-----------Parola Formu -------------------------------------'%>

<p align="center"><font color="#FFFFFF"><b>Lütfen yönetici sifrenizi giriniz</b>
</font>
<form method=post action="<%=parolasayfa%>">
<p align="center">
<input type="password" name="administrator" value="" size="20" class="form">
<br>
<font face="tahoma, verdana, ms Sans Serif" size="2">
<input name="submit" style="font-family:Tahoma;font-size:11;border-width:1;width:100" type=submit value=::Login::>
</font>
</form>

<%
response.end
end sub
%>

[ccasper]

calısma sıstemını de eklersenız sevınırız sanırım kodu kullanırken ıcıne bırseyler eklememız gerekıyor