<%
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
%>
