<% if request.QueryString("islem")="4" then %>
<% sifre=Trim(request.Form("sifre")) %>
<% Set rec = Server.CreateObjecT("ADODB.RecordSet")
rSQL = "SELECT * FROM Uyeler WHERE kadi = '"& session("unutulansifre") & "'"
rec.open rSQL,Connection,3,3
if session("unutulansifredogru")=True then %>
<% rec("sifre")=sifre
rec.update
session("unutulansifredogru")=""
session("unutulansifre")=""
%>
<% ="Şifreniz Başarıyla Değiştirildi." %>
<%end if
end if%>
<% if request.QueryString("islem")="3" then %>
<% gizlicevap=security(Trim(request.Form("gizlicevap"))) %>
<% Set rec = Server.CreateObjecT("ADODB.RecordSet")
rSQL = "SELECT * FROM Uyeler WHERE kadi = '"& session("unutulansifre") & "'"
rec.open rSQL,Connection,3,3
if rec("gizlicevap")=gizlicevap then
session("unutulansifredogru")=True
%>
<%else%>
<% ="Yanlış cevap verdiniz." %>
<% end if
End If %>
<% if request.QueryString("islem")="2" then %>
<% kadi=security(Trim(request.Form("kadi"))) %>
<% session("unutulansifre")=kadi %>
<% Set rec = Server.CreateObjecT("ADODB.RecordSet")
rSQL = "SELECT * FROM Uyeler WHERE kadi = '"& kadi & "'"
rec.open rSQL,Connection,3,3
if not rec.eof then
%>
<% ="Soru : " & server.HTMLEncode((rec("gizlisoru"))) %>
<% else %>
<% ="Böyle bir kullanıcı sistemimizde kayıtlı değildir." %>
<% end if
End If %>
<% if request.QueryString("islem")="" then %>
<% end if %>
<% Set rec = Server.CreateObjecT("ADODB.RecordSet")
rSQL = "Select reklam FROM Genel"
rec.open rSQL,Connection,3,3 %>
<% =rec("reklam") %>