<%if request.Cookies("ibrav")("mevcut")<>"evet" then%>
Şifre Hatırlatma
<%
durum=request.QueryString("durum")
if durum="" then
durum="adim1"
end if
%>
<%select case durum%>
<%case "adim1"%>
<% case "adim2" %>
<% k_adi=request.Form("k_adi")
if k_adi="" then
response.redirect("hata.asp?hata=3")
else
%>
<%
set rs=server.createobject("adodb.recordset")
SQL="Select * from uyeler where k_adi='"&k_adi&"'"
rs.open SQL,baglan,1,3
if not rs.EOF then
response.redirect("unuttum.asp?durum=adim3&id="&rs("id")&"")
else
response.redirect("hata.asp?hata=4")
end if
rs.close
end if
%>
<% case "adim3" %>
<% id=request.QueryString("id")%>
<%
set rs=server.createobject("adodb.recordset")
SQL="Select * from uyeler where id="&id&""
rs.open SQL,baglan,1,3
%>
<% case "adim4" %>
<% id=request.QueryString("id")%>
<% h_cevap=request.form("h_cevap")%>
<%
if h_cevap="" then
response.redirect("hata.asp?hata=5")
else
%>
<%
set rs=server.createobject("adodb.recordset")
SQL="Select * from uyeler where id="&id&" and h_cevap='"&h_cevap&"'"
rs.open SQL,baglan,1,3
if not rs.eof then
response.redirect("unuttum.asp?durum=adim5&id="&rs("id")&"")
else
response.redirect("hata.asp?hata=6")
end if
rs.close
end if
%>
<% case "adim5" %>
<% id=request.QueryString("id")%>
<%
set rs=server.createobject("adodb.recordset")
SQL="Select * from uyeler where id="&id&""
rs.open SQL,baglan,1,3
%>
| Kullanıcı
Adınız : |
<%=rs("k_adi")%> |
| Şifreniz :
|
<%=rs("sifre")%> |
Anasayfa
<% rs.close%>
<% end select %>
<%else
response.Redirect("default.asp")
end if%>