Üye ol   (tüm alanları doldurunuz)

<%if request("nesal")="" then%> <%else%> <%end if%>    kullanıcı adı :          e-mail :          şifre :          şifre tekrar :           isminiz :          şehir : Seçiniz ----------------- Yurt Dışı <% set rs = baglan.execute("SELECT * FROM YER ORDER BY YER ASC") do until rs.eof %> ><%=rs("YER")%> <% rs.movenext : loop rs.close : set rs = nothing %>          cinsiyet : Seçiniz ----------------- erkek bayan          doğum tarihi : Gün <%for t=1 to 31 if len(t) = 1 then t = "0" & t end if %> ><%=t%> <%next%> Ay <%for t=1 to 12 if len(t) = 1 then t = "0" & t end if %> ><%=monthname(t)%> <%next%> Yıl <%for t=1950 to 2004%> ><%=t%> <%next%>          onay kodu :          sözleşme : sözleşmeyi okudum kabul ediyorum           <% kadi = tara(request("kadi")) 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 len(kadi)>15 or len(kadi)<5 then hata = hata & "- Kullanıcı Adınız 5-15 Karakter Arası Olmalı " 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&"'") 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 set e_kontrol=baglan.execute("select ID from UYELER where KADI='"&kadi&"'") if not e_kontrol.eof then hata = hata & "- Seçtiğiniz Kullanıcı Adı Alınmış " 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"),baglan, 1, 3 rs.addnew rs("KADI")=kadi 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("UTARIH")=zaman(now) rs.update rs.close : set rs = nothing set rs = baglan.execute("SELECT ID FROM UYELER WHERE KADI='"& kadi &"'") session("id")=rs("ID") session("kadi")=kadi rs.close : set rs = nothing %> Üyelik İşleminiz Tamamlandı.Sitemize Katıldığınız İçin Teşekkür Ederiz. Ana Sayfaya Gitmek İçin Tıklayın <%end if%>