Üye kayıt formu

<% Response.Buffer = True %> <%yonlen = "../main/default.asp"%> Üye kayıt formu

	Sign In Sign-Up

<% aks = request("aks") if aks="kayit" then call kayit else %>

MANSON FUN'S ÜYE KAYIT FORMU
Ad :
Soyad :
E-mail :
Web :
Sehir :
KULLANICI ADI :
SIFRE:
HATIRLATMA SORUSU:
HATIRLATMA CEVABI:
	*KAYDET*

<% end if sub kayit adi = Request.Form("adi") soyadi = Request.Form("soyadi") sehir = Request.Form("sehir") email = Request.Form("email") icq = Request.Form("icq") web = Request.Form("web") username = Request.Form("username") password = Request.Form("password") soru = Request.Form("soru") cevap = Request.Form("cevap") if adi="" OR cevap="" then response.write "Lütfen alanları boş bırakmayınız. rica ediyom yani .. " response.end end if Set kontrol = Server.CreateObject("ADODB.RecordSet") SQL = "Select * from uyeler WHERE username = '" & username & "'" kontrol.open SQL,bag,1,3 if not kontrol.eof then Response.write "Bu username bir başkası tarafından alınmıştır
" Response.end else Set kaydet = Server.CreateObject("ADODB.RecordSet") sql_kaydet = "Select * from uyeler" kaydet.open sql_kaydet,bag,1,3 kaydet.addnew kaydet("adi") = adi kaydet("soyadi") = soyadi kaydet("sehir") = sehir kaydet("email") = email kaydet("icq") = icq kaydet("web") = web kaydet("username") = username kaydet("password") = password kaydet("soru") = soru kaydet("cevap") = cevap kaydet.update response.redirect yonlen end if end sub %>