ŞİFRE SIFIRLAMA FORMU

<% If Request.ServerVariables("REQUEST_METHOD") <> "POST" Then %>

Lütfen Kullanıcı adınızı veya üye olurken verdiğiniz e-posta adresinizi aşağıdaki kutucuklara girip "Devam"'a tıklayınız.
Kullanıcı Adı:
E-Posta Adresi:

<% Else %> <% Adim = Temizle(Request.Form("adim")) If Adim = 2 Then KAdi = Temizle(Request.Form("KullaniciAdi")) EPosta = Temizle(Request.Form("EPosta")) HangisiGirilmis = 0 If KAdi <> "" OR EPosta <> "" Then SQL = "SELECT fldKullaniciAdi, fldEPosta, fldOzelSoru, fldOzelCevap FROM tblUyeler WHERE " If KAdi <> "" AND EPosta = "" Then SQL = SQL & "fldKullaniciAdi='" & KAdi & "'": HangisiGirilmis = 1 If KAdi = "" AND EPosta <> "" Then SQL = SQL & "fldEPosta='" & EPosta & "'": HangisiGirilmis = 2 If KAdi <> "" AND EPosta <> "" Then SQL = SQL & "fldKullaniciAdi='" & KAdi & "' AND fldEPosta='" & EPosta & "'": HangisiGirilmis = 3 'Response.Write SQL Set Kontrol = Bag.Execute(SQL) If Kontrol.EOF Then If KAdi <> "" AND EPosta = "" Then Response.Write "

Kullanıcı Adı veritabanında bulunamadı. Lütfen geri dönüp sadece mail adresinizi yazarak işleme devam etmeyi deneyiniz.

" If KAdi = "" AND EPosta <> "" Then Response.Write "

E-Posta adresi veritabanında bulunamadı. Lütfen geri dönüp sadece kullanıcı adınızı yazarak işleme devam etmeyi deneyiniz.

" If KAdi <> "" AND EPosta <> "" Then Response.Write "

Kullanıcı Adı ve E-Posta veritabanında bulunamadı. Lütfen geri dönüp sadece mail adresinizi veya kullanıcı adınızı yazarak işleme devam etmeyi deneyiniz.

": HangisiGirilmis = 3 Else %>

Lütfen aşağıdaki özel sorunuza ait cevabı aşağıdaki kutucuğa girip "Devam"'a tıklayınız.
Özel Sorunuz:	<%=Kontrol("fldOzelSoru")%>
Cevabınız:
" value="<%=B64Encode(Kontrol("fldKullaniciAdi"))%>"> " value="<%=B64Encode(Kontrol("fldEPosta"))%>"> " value="<%=B64Encode(HangisiGirilmis)%>">

<% End If Else Response.Write "Lütfen, kullanıcı adınızı veya e-posta adresinizi yazınız.

Geri Dön" End If ElseIf Adim = 3 Then KAdi = B64Decode(Temizle(Request.Form(B64Encode("KullaniciAdi")))) EPosta = B64Decode(Temizle(Request.Form(B64Encode("EPosta")))) HangisiGirilmis = CInt(B64Decode(Temizle(Request.Form(B64Encode("HangisiGirilmis"))))) OzelCevap = Temizle(Request.Form("OzelCevap")) If OzelCevap = "" Then Response.Write "

Şifre sıfırlama işlemine devam etmek için özel sorunuza ait özel cevabı girmelisiniz. Lütfen geri dönüp özel cevabınızı giriniz.

" Else SQL = "SELECT * FROM tblUyeler WHERE fldOzelCevap='" & OzelCevap & "' AND " Select Case HangisiGirilmis Case 1: SQL = SQL & "fldKullaniciAdi='" & KAdi & "'" Case 2: SQL = SQL & "fldEPosta='" & EPosta & "'" Case 3: SQL = SQL & "fldKullaniciAdi='" & KAdi & "' AND fldEPosta='" & EPosta & "'" End Select Set Kontrol = Bag.Execute(SQL) If Kontrol.EOF Then Response.Write "

Girdiğiniz cevap doğru değildir. Lütfen geri dönüp tekrar deneyiniz.

" Else Mesaj = "Sayın " & Kontrol("fldAdiSoyadi") & ";" & vbCrLf & vbCrLf Mesaj = Mesaj & "Seyyahamca.com şifre sıfırlama servisine başvurunuz üzerine şifrenizi sıfırlayacak sayfanın linki aşağıya yazdırılmıştır. Eğer şifrenizi sıfırlamak ve yeni şifrenizin mail adresinize gönderilmesini istiyorsanız aşağıdaki linki kopyalayıp internet tarayıcınızın adres çubuğuna yapıştırarak klavyenizin Enter tuşuna basınız." & vbCrLf & vbCrLf Mesaj = Mesaj & "Şifre sıfırlama sayfası:" & vbCrLf & vbCrLf Mesaj = Mesaj & "http://www.seyyahamca.com/sifirla.asp?k=" & md5(KAdi) & "&e=" & md5(EPosta) & "&c=" & md5(Kontrol("fldOzelCevap")) & "&i=" & B64Encode(Kontrol("fldID")) & "&t=" & B64Encode(Now) & vbCrLf & vbCrLf Mesaj = Mesaj & "Yukarıdaki link geçerliliğini 24 saat sonra yitirecektir. Eğer bu mail size zamanında ulaşmadıysa sıfırlama işlemini tekrar yapmanız gerekmektedir." & vbCrLf & vbCrLf Mesaj = Mesaj & "Şifrenizi sıfırlama başvurusunda bulunmadıysanız bu mesajı görmezden gelip silmenizi ve özel soru ve cevabınızı kimsenin bilemeyeceği şekilde değiştirmenizi öneririz. Özel sorunuzu, cevabınızı ve diğer tüm üyelik bilgierinizi düzenlemek için aşağıdaki adresi kopyalayıp internet tarayıcınızın adres çubuğuna yapıştırdıktan sonra klavyenizin Enter tuşuna basınız ve açılan sayfadaki yönergeleri takip ederek bilgilerinizi değiştiriniz:" & vbCrLf & vbCrLf Mesaj = Mesaj & "http://www.seyyahamca.com/uye_bilgileri.asp" & vbCrLf & vbCrLf Call PMail(Kontrol("fldEPosta"),"Seyyahamca.com Şifre Sıfırlama Onayı",Mesaj,"Text") 'response.write Mesaj %>

Şifre sıfırlama linkiniz <%=Kontrol("fldEPosta")%> adresine gönderilmiştir. Sıfırlama işlemine devam etmek için posta kutunuzu kontrol ediniz ve gönderilen linke tıklayınız.

Ana Sayfaya dön

<% End If End If End If %> <% End If %>

<%=DikeyBol%>

ŞİFREMİ UNUTTUM

<%=YatayBol%>

R E K L A M

<%=YatayBol%>

ÜYE BİLGİLERİNİZİ GÜNCELLEYİN

<%=YatayBol%>

GÜVENLİ ÇIKIŞ

<%=Hr%>