<% If session("yetki")="yes" Then %> <% strFormName = "altiok" strTextAreaName = "aciklama" dim ne ne=request.QueryString("do") dim hata hata=request.QueryString("err") dim rs dim baglanti dim edit if request.QueryString("id")<>"" then edit=1 Set Baglanti=Server.CreateObject("Adodb.Connection") Baglanti.Open Cumle Set Rs=Server.CreateObject("Adodb.Recordset") Sorgu="Select * from soy where kod=" & request.QueryString("id") Rs.Open Sorgu, Baglanti, 1, 3 else Set Baglanti=Server.CreateObject("Adodb.Connection") Baglanti.Open Cumle Set Rs=Server.CreateObject("Adodb.Recordset") Sorgu="Select * from soy" Rs.Open Sorgu, Baglanti, 1, 3 end if Set Rsl=Server.CreateObject("Adodb.Recordset") Sorgu="Select * from soy order by dtarih" Rsl.Open Sorgu, Baglanti, 1, 1 %> Aile Ferdi Düzenleme Ekranı
" method="POST"> <% If request.QueryString("id")<>"" Then %> <% End If %>

Aile Ferdi Düzenleme Ekranı

<% if edit<>1 then Response.Write("Yeni Kayıt") %> <% ElseIf edit=1 Then %> Kayıt Düzenle <% End If %> ">
Ad : " size="44">
Soyad : " size="44">
Cinsiyet :
Doğum Yeri : " size="44">
Doğum Tarihi : " size="2" maxlength="2"> " size="2" maxlength="2"> " size="4" maxlength="4">
E-Posta Adresi : " size="44">
Telefon 1 : " size="44">
Telefon 2 : " size="44">
Adres : " size="44">
Meslek : " size="44">
Kan Grubu : " size="44">
 Ana Adı :
Baba Adı :
Eş 1 :
Eş 2 :
Eş 3 :
Eş 4 :
Eş 5 :
Kişisel Açıklamalar :
 
  <% if edit=1 then %> Kaydı Sil (Dikkat Geri Dönüşü Yok!) <% End If %>
    Yeni Kayıt


<% if ne=1 then dim resim dim ad dim soyad dim cins dim dyeri dim dtarih dim mail dim tel1 dim tel2 dim adres dim meslek dim kan dim anakod dim babakod dim eskod1 dim eskod2 dim eskod3 dim eskod4 dim eskod5 dim aciklama dim sil resim=request.Form("resim") ad=request.Form("ad") soyad=request.Form("soyad") cins=request.Form("cins") dyeri=request.Form("dyeri") gun=request.Form("gun") ay=request.Form("ay") yil=request.Form("yil") tarr=gun + "." + ay + "." + yil Response.Write(tarr) dtarih=cdate(tarr) mail=request.Form("mail") tel1=request.Form("tel1") tel2=request.Form("tel2") adres=request.Form("adres") meslek=request.Form("meslek") kan=request.Form("kan") anakod=request.Form("anakod") babakod=request.Form("babakod") eskod1=request.Form("eskod1") eskod2=request.Form("eskod2") eskod3=request.Form("eskod3") eskod4=request.Form("eskod4") eskod5=request.Form("eskod5") aciklama=request.Form("aciklama") aciklama = Replace(aciklama,vbCrLf,"
") sil=request.Form("sil") if sil="yes" then rs.delete rs.update response.Redirect("edit.asp") 'response.End() end if if ad="" then response.write "" Response.Write "" response.End() elseif soyad="" then response.write "" Response.Write "" response.End() elseif gun="" OR ay="" OR yil="" then response.write "" Response.Write "" response.End() end if if edit=1 then rs("ad")=ad rs("soyad")=soyad rs("cins")=cins rs("dyeri")=dyeri rs("dtarih")=dtarih rs("mail")=mail rs("tel1")=tel1 rs("tel2")=tel2 rs("adres")=adres rs("meslek")=meslek rs("kan")=kan rs("anakod")=anakod rs("babakod")=babakod rs("eskod1")=eskod1 rs("eskod2")=eskod2 rs("eskod3")=eskod3 rs("eskod4")=eskod4 rs("eskod5")=eskod5 rs("aciklama")=aciklama rs.update rs.close set rs=nothing baglanti.close set baglanti=nothing response.redirect "detail.asp?id=" & request.QueryString("id") elseif edit<>1 then rs.addnew rs("ad")=ad rs("soyad")=soyad rs("cins")=cins rs("dyeri")=dyeri rs("dtarih")=dtarih rs("mail")=mail rs("tel1")=tel1 rs("tel2")=tel2 rs("adres")=adres rs("meslek")=meslek rs("kan")=kan rs("anakod")=anakod rs("babakod")=babakod rs("eskod1")=eskod1 rs("eskod2")=eskod2 rs("eskod3")=eskod3 rs("eskod4")=eskod4 rs("eskod5")=eskod5 rs("aciklama")=aciklama rs.update response.redirect "detail.asp?id=" & rs("kod") rs.close set rs=nothing baglanti.close set baglanti=nothing end if end if %> <% Else %>
SAYFAYA GİRİŞ İZNİNİZ YOK. ÜZGÜNÜZ!
<% End If %>