<%
ad=Request.Form("ad")
soyad=Request.Form("soyad")
k_a=session("k_a")
sifre=Request.Form("sifre")
sifre2=Request.Form("sifre2")
soru=Request.Form("soru")
cevap=Request.Form("cevap")
email=Request.Form("email")
dogumtar=Request.Form("dogumtar")
cins=Request.Form("cins")
usersNo=Session("usersNo")
Set Baglanti=Server.CreateObject("Adodb.Connection")
Baglanti.Open Cumle
Set Rs=Server.CreateObject("Adodb.Recordset")
Sorgu="Select * from users where id="& Session("usersNo")
Rs.Open Sorgu, Baglanti, 1, 3
if not Rs.EOF then
Rs("ad")=ad
Rs("soyad")=soyad
Rs("sifre")=sifre
Rs("email")=email
Rs("soru")=soru
Rs("cevap")=cevap
Rs("dogtar")=dogumtar
Rs("cinsiyet")=cins
Rs.Update
usersNo=Rs("id")
else
if Rs("k_ad")=k_a then
Response.Redirect("hata/hataoa.asp")
End if
if Rs("k_ad")=k_a then
Response.Redirect("hata/hataks.asp")
End if
end if
session("k_a")=""
Rs.Close
Set Rs=Nothing
Baglanti.Close
Set Baglanti=Nothing
%>
'"
Kayıt İşlemi Bitti!