<%
DIM Gerekli_Sifre
Gerekli_Sifre = "r10"
If Session("Kullanici_Sifresi" ) <> Gerekli_Sifre Then
If Request.Form("Kullanici_Sifresi" ) <> Gerekli_Sifre Then
Call frmParola_Form
Else
Session("Kullanici_Sifresi" ) = Gerekli_Sifre
End If
End If
%>
<%
Sub frmParola_Form
Sayfa = "http://"
Sayfa = Sayfa & Request.ServerVariables("HTTP_HOST" )
Sayfa = Sayfa & Request.ServerVariables("URL" )
%>
<html>
<head>
<title></title>
</head>
<body>
<form method="post" action="<% =Sayfa %>">
<p>ŞİFRE : <input type="PASSWORD" name="Kullanici_Sifresi" value size="20"> <br>
<br>
<input type="SUBMIT" value="Gir"> </p>
</form>
<p><br>
<%
Response.End
End Sub
%></p>
</body>
</html>Benim yapmak istedigim r10 sifremizi databese den cekmek.. bunu nasil yapabilirim ? DIM Gerekli_Sifre
Gerekli_Sifre = "r10"
