 |
<%
function TestCaptcha(byval valSession, byval valCaptcha)
dim tmpSession
valSession = Trim(valSession)
valCaptcha = Trim(valCaptcha)
if (valSession = vbNullString) or (valCaptcha = vbNullString) then
TestCaptcha = false
else
tmpSession = valSession
valSession = Trim(Session(valSession))
Session(tmpSession) = vbNullString
if valSession = vbNullString then
TestCaptcha = false
else
valCaptcha = Replace(valCaptcha,"i","I")
if StrComp(valSession,valCaptcha,1) = 0 then
TestCaptcha = true
else
TestCaptcha = false
end if
end if
end if
end function
%>
<%if request.QueryString("adim")="" then%>
<%end if%>
<% if request.QueryString("adim")="1" then
if TestCaptcha("ASPCAPTCHA", Request.Form("captchacode")) then
%>
<% kadi=postkontrol(Request.Form("kadi"))
mail=postkontrol(Request.Form("mail"))
if kadi<>"" or mail<>"" then
'response.Write(kadi)
'response.Write(mail)
s=0
sorgum="select * from uyeler"
rs.open Sorgum, Baglantim, 3, 3
do while not rs.eof
if kadi=rs("kadi") or mail=rs("email") then
s=s+1
' response.Write(rs("gizlisoru"))
' response.Write(rs("gizlicevap"))
kodu=rs("id")
cevabiniz=rs("gizlicevap")
sorunuz=rs("gizlisoru")
session("kuladi")=rs("kadi")
if s=1 then exit do
end if
rs.movenext
loop
rs.close
if s<>0 then%>
<%else%>
Yazdığınız Bilgilere Ait Kayıtlı Üye Bulunamadı...
Geri Dönerek Tekrar Deneyebilirsiniz...
<%end if%>
<%else%>
Kullanıcı Adı veya Mail Adresinden Herhangi Birini Girmelisiniz.
Lütfen Geri Dönüp Gerekli Bilgileri Giriniz.
<%end if%>
<%else%>
Güvenlik Kodunu Hatalı Girdiniz.
Lütfen Geri Dönüp Güvenlik Kodunu Yenileyin Ve Doğru Bir Şekilde Tekrar Girin.
<%end if%>
<%end if
if request.QueryString("adim")="2" then
session("hak")= 8
if session("hak")<>4 then
kuladi=session("kuladi")
cevap=Postkontrol(Request.Form("cevap"))
sorgum="select * from uyeler"
rs.open Sorgum, Baglantim, 3, 3
i=0
do while not rs.eof
if kuladi=rs("kadi") and cevap=rs("gizlicevap") then
i=i+1%>
Başarılar. Tüm Adımları Geçtiniz.
Şifreniz : <%=rs("sifre")%>
<% if i<>0 then
rs.close
exit do
end if
end if
rs.movenext
loop
if i=0 then%>
Yazmış Olduğunuz Cevap Yanlış.
Lütfen Geri Dönüp Doğru Cevabı Yazınız.
<% end if
else%>
Şifre Talep Hakkınız Tükenmiştir.
Sanırım Bu Kullanıcı Siz Değilsiniz.:)
<%end if
end if
%>
Pencereyi Kapat
|
 |
