<% call Ust() %> <% durum=request.querystring("durum") if durum="" then durum="normal" end if%> <% select case durum %> <% case "normal" %> <% 'k_adi kontrol etmek için set rs=server.createobject("adodb.recordset") SQL="Select * from uyeler where k_adi='"& k_adi &"'" rs.open SQL, baglan, 1, 3 if rs.eof then response.redirect("hata.asp?hata=8") end if %>
KİŞİSEL BİLGİLERİNİZ
Kullanıcı Adı <%=rs("k_adi")%>
Şifreniz ********
Hatırlatma Sorusu <%=rs("h_soru")%>
Cevabı <%=rs("h_cevap")%>
E-mail Adresi <%=rs("email")%>
Adınız <%=rs("ad")%>
Soyadınız <%=rs("soyad")%>
Meslek <%=rs("meslek")%>
Şehir <%=rs("sehir")%>
Yaşınız <%=rs("yas")%>
Cinsiyet <%=rs("cins")%>
<% case "degistir"%> <% set rs=server.createobject("adodb.recordset") SQL="Select * from uyeler where k_adi='"& k_adi &"'" rs.open SQL, baglan, 1, 3 if rs.eof then response.Redirect("hata.asp?hata=8") end if %>
KİŞİSEL BİLGİLERİNİZ
Kullanıcı Adı <%=rs("k_adi")%>
Şifreniz ********
Hatırlatma Sorusu " class="input">
Cevabı " class="input">
E-mail Adresi " class="input">
Adınız " class="input">
Soyadınız " class="input">
Meslek " class="input">
Şehir " class="input">
Yaşınız " class="input">
<% case "onayla"%> <% if request.form("h_soru")="" then response.Redirect("hata.asp?hata=7") elseif request.form("h_cevap")="" then response.Redirect("hata.asp?hata=7") elseif request.form("email")="" then response.Redirect("hata.asp?hata=7") elseif request.form("ad")="" then response.Redirect("hata.asp?hata=7") elseif request.form("soyad")="" then response.Redirect("hata.asp?hata=7") elseif request.form("meslek")="" then response.Redirect("hata.asp?hata=7") elseif request.form("sehir")="" then response.Redirect("hata.asp?hata=7") elseif request.form("yas")="" then response.Redirect("hata.asp?hata=7") else %> <%email=Request.Form("email")%> <%E = email if EmailKontrol(E) then response.write "" else response.Redirect("hata.asp?hata=25") end if %> <% set objrs=server.createobject("adodb.recordset") SQL="Select * from uyeler where k_adi='"& k_adi &"'" objrs.open SQL, baglan, 1, 3 if email<>objrs("email") then set rs=server.createobject("adodb.recordset") SQL="Select * from uyeler where email='"& email &"'" rs.open SQL, baglan, 1, 3 if not rs.eof then response.Redirect("hata.asp?hata=19") response.end end if rs.close else end if %> %> <% set rs=server.createobject("adodb.recordset") SQL="Select * from uyeler where k_adi='"& k_adi &"'" rs.open SQL, baglan, 1, 3 rs("h_soru")=request.form("h_soru") rs("h_cevap")=request.form("h_cevap") rs("email")=request.form("email") rs("ad")=request.form("ad") rs("soyad")=request.form("soyad") rs("meslek")=request.form("meslek") rs("sehir")=request.form("sehir") rs("yas")=request.form("yas") rs.update %> <% mesaj = Server.URLEncode("
Değişiklikler Kaydediliyor... Lütfen bekleyiniz
") %> <% url= "uyebilgi.asp"%> <% Response.Redirect ("bekle.asp?BEKLE_SURE=2&BEKLE_MESAJ=" & mesaj & "&GONDER_URL="&url&" ") %> <%end if%> <% case "sifre" %> <% set rs=server.createobject("adodb.recordset") SQL="Select * from uyeler where k_adi='"& k_adi &"'" rs.open SQL, baglan, 1, 3 %>
<%=rs("k_adi")%>
Eski Şifreniz
Yeni Şifreniz
Yeni Şifre Tekrar
">
<% case "yenisifre" %> <% dim eski,yeni,tekrar eski=request.Form("eski") yeni=request.Form("yeni") tekrar=request.Form("tekrar") %> <% if eski="" then response.Redirect("hata.asp?hata=10") elseif yeni="" then response.Redirect("hata.asp?hata=11") elseif tekrar="" then response.Redirect("hata.asp?hata=12") elseif len(yeni)<4 or len(yeni)>8 then response.Redirect("hata.asp?hata=13") else %> <% set rs=server.createobject("adodb.recordset") SQL="Select * from uyeler where k_adi='"& k_adi &"'" rs.open SQL, baglan, 1, 3 if rs("sifre")<>eski then response.Redirect("hata.asp?hata=14") elseif yeni<>tekrar then response.Redirect("hata.asp?hata=15") elseif rs("sifre")=yeni then response.Redirect("hata.asp?hata=24") else rs("sifre")=yeni rs.update rs.close %> <% mesaj = Server.URLEncode("
Şifreniz Basariyla Değiştirildi... Lütfen bekleyiniz
") %> <% Response.Redirect ("bekle.asp?BEKLE_SURE=4&BEKLE_MESAJ=" & mesaj & "&GONDER_URL=default.asp") %> <%end if%> <%end if%> <%end select%> <% call Alt() %> <% Function EmailKontrol(Str) Et_Isareti = InStr(2, Str , "@") if Et_Isareti = VBIsNull then EmailKontrol = False else Et_Isareti_Krakter_Sayisi = Et_Isareti Et_Isareti = True end if if Et_Isareti = True then Nokta = InStr(Et_Isareti_Krakter_Sayisi + 2, Str , ".") if Nokta = VBIsNull then EmailKontrol = False else EmailKontrol = True end if else EmailKontrol = False end if end Function %>