<%
DIM pwdGerekli_Sifre
pwdGerekli_Sifre = "Buraya Sifrenizi Yaziniz"
IF Session("pwdKullanici_Sifresi") <> pwdGerekli_Sifre THEN
IF request.form("pwdKullanici_Sifresi") <> pwdGerekli_Sifre THEN
CALL frmParola_Form
ELSE
Session("pwdKullanici_Sifresi") = pwdGerekli_Sifre
END IF
END IF
%>
<%
SUB frmParola_Form
Sayfa = "http://"
Sayfa = Sayfa & Request.ServerVariables("HTTP_HOST")
Sayfa = Sayfa & Request.ServerVariables("URL")
%>
<body bgcolor="#DBDBDB">
<form method=post action="<% =Sayfa %>">
<div align="center">
<center>
<table border="0" width="39%" cellspacing="0" cellpadding="0" height="64" style="border-collapse: collapse; border-style: double; border-width: 3" bordercolor="#111111">
<tr>
<td width="100%" colspan="2" height="28">
<table border="0" width="100%" cellspacing="0" cellpadding="0" height="28">
<tr>
<td width="100%" bgcolor="#FFFFFF" height="28">
</tr>
</table>
</td>
</tr>
</center>
<tr>
<td width="28%" bgcolor="#C0C0C0" height="36">
<p align="center"><font size="1" face="Verdana">
ŞiFRE : </font></td>
<td width="72%" bgcolor="#C0C0C0" height="36"><font size="1" face="Verdana">
<input type="password" name="pwdKullanici_Sifresi" size="20" style="background-color: #FFFFFF; color: #000000; font-size: 8pt; font-family: verdana; border: 1 outset #FFFFFF">
<input type="SUBMIT" value="Gir" style="background-color: #FFFFFF; color: #000000; font-size: 8pt; font-family: verdana; border: 1 outset #808080">
</font></td>
</tr>
<center>
</table>
</center>
</div>
</form>
<p align="center">
<font size="1" face="Verdana">
Powered By AlpeR <br>
<%
response.end
END SUB
%></font></p>
Html ( 15 )
