<% if request("nesal")="" then Set rs = Server.Createobject("ADODB.Recordset") rs.open("SELECT * FROM UYELER WHERE ID="&session("id")),baglan, 1, 3 dogum=rs("DTARIH") ddyil=mid(dogum,1,4) dday=mid(dogum,5,2) ddgun=mid(dogum,7,2) %> <%else%> <%end if%> kullanıcı adı : <%=rs("KADI")%>       e-mail : " name="email" size="41" style="font-family: arial; font-size: 11px; border: 2px solid #E8E8E8; background-color: #FFFFFF">       şifre : " name="sifre" size="41" style="font-family: arial; font-size: 11px; border: 2px solid #E8E8E8; background-color: #FFFFFF">       şifre tekrar : " name="sifre2" size="41" style="font-family: arial; font-size: 11px; border: 2px solid #E8E8E8; background-color: #FFFFFF">       isminiz : " size="41" style="font-family: arial; font-size: 11px; border: 2px solid #E8E8E8; background-color: #FFFFFF">       şehir : Seçiniz ----------------- Yurt Dışı <% set rsx = baglan.execute("SELECT * FROM YER ORDER BY YER ASC") do until rsx.eof %> <%if cint(rs("SEHIR"))=cint(rsx("ID")) then%> selected<%end if%>><%=rsx("YER")%> <% rsx.movenext : loop rsx.close : set rsx = nothing %>       cinsiyet : Seçiniz ----------------- selected<%end if%>>erkek selected<%end if%>>bayan       doğum tarihi : Gün <%for t=1 to 31 if len(t) = 1 then t = "0" & t end if %> <%if cint(t)=cint(ddgun) then%> selected<%end if%>><%=t%> <%next%> Ay <%for t=1 to 12 if len(t) = 1 then t = "0" & t end if %> <%if cint(t)=cint(dday) then%> selected<%end if%>><%=monthname(t)%> <%next%> Yıl <%for t=1950 to 2004%> <%if cint(t)=cint(ddyil) then%> selected<%end if%>><%=t%> <%next%>       onay kodu :                 <% sifre = tara(request("sifre")) sifre2 = tara(request("sifre2")) email = tara(request("email")) ulke = tara(request("ulke")) sehir = tara(request("sehir")) isim = tara(request("isim")) meslek = tara(request("ulke")) gunum = tara(request.form("gun")) ayim = tara(request.form("ay")) yilim = tara(request.form("yil")) cinsiyet = tara(request.form("cinsiyet")) if blnCAPTCHAcodeCorrect = False Then hata = hata & "- Yanlış Güvenlik Kodu " end if if sifre="" then hata = hata & "- Şifre Yazılmamış " end if if sifre2="" then hata = hata & "- Şifre Tekrarı Yazılmamış " end if if sifre<>sifre2 then hata = hata & "- Şifreniz Ve Şifre Tekrarınız Aynı Olmalı " end if if email="" then hata = hata & "- Email Adresi Yazılmamış " end if if gunum="" then hata = hata & "- Doğum Gününüz Yazılmamış " end if if ayim = "" then hata = hata & "- Doğum Ayınız Yazılmamış " end if if yilim = "" then hata = hata & "- Doğum Yılınız Yazılmamış " end if if cinsiyet = "" then hata = hata & "- Cinsiyet Seçilmemiş " end if if isim = "" then hata = hata & "- İsim Yazılmamış " end if set e_kontrol=baglan.execute("select EMAIL from UYELER where EMAIL='"&email&"' AND ID<>"&session("id")) if not e_kontrol.eof then hata = hata & "- Seçtiğiniz Email Adresi Kullanılıyor " end if e_kontrol.close : set e_kontrol = nothing if hata<>"" then response.write hata & " Geri Dön" else Set rs = Server.Createobject("ADODB.Recordset") rs.open("SELECT * FROM UYELER WHERE ID="&session("id")),baglan, 1, 3 rs("SIFRE")=sifre rs("EMAIL")=email rs("ULKE")=ulke rs("SEHIR")=sehir rs("MESLEK")=meslek rs("CINSIYET")=cinsiyet rs("ISIM")=isim rs("DTARIH")=yilim&ayim&gunum rs.update rs.close : set rs = nothing %> Üyelik Bilgileriniz Düzenlendi Ana Sayfaya Gitmek İçin Tıklayın <%end if%>