<% If session("yetki")<>"" Then %> <% dim kod kod=request.QueryString("id") kod=cint(kod) Set Baglanti=Server.CreateObject("Adodb.Connection") Baglanti.Open Cumle Set Rs=Server.CreateObject("Adodb.Recordset") Sorgu="Select * from soy where kod=" & kod Rs.Open Sorgu, Baglanti, 1, 1 %> <%= Rs("ad")%> <%= Rs("soyad") %>

<%= Rs("ad")%> <%= Rs("soyad") %>

<% if isnull(rs("mail"))=true or rs("mail")="" then Response.Write("") Response.Write("mail@altiok.net") else Response.Write("") Response.Write( rs("mail")) end if %>

b.jpg" target="_blank">.jpg" width="160">

<% if rs("sayfa")<>"" then %> <% else Response.Write(rs("aciklama")) end if %>  
Baba Adı: <% if rs("babakod")<>0 then Set Rsbaba=Server.CreateObject("Adodb.Recordset") Sorgu="Select * from soy where kod=" & rs("babakod") Rsbaba.Open Sorgu, Baglanti, 1, 1 if rsbaba.recordcount>0 then Response.Write(rsbaba("ad")) else Response.Write("-") end if %>
Ana Adı: <% if rs("anakod")<>0 then Set Rsana=Server.CreateObject("Adodb.Recordset") Sorgu="Select * from soy where kod=" & rs("anakod") Rsana.Open Sorgu, Baglanti, 1, 1 if rsana.recordcount>0 then Response.Write(rsana("ad")) else Response.Write("-") end if %>
Doğum Tarihi: <%= rs("dtarih") %>
Doğum Yeri: <%= rs("dyeri") %>
Medeni Hali: <% if rs("eskod1")<>0 then Response.Write("Evli") else Response.Write("Bekar") end if %>
Telefon 1: <%= Rs("tel1") %>
Telefon 2:: <%= Rs("tel2") %>
Adres: <%= Rs("adres") %>
Meslek: <%= Rs("meslek") %>
Kan Grubu: <%= Rs("kan") %>
   
<% If session("yetki")="yes" Then %>
">
<% End If %> <% If session("yetki")="yes" Then %>
">
<% End If %>
<% Else %>
SAYFAYA GİRİŞ İZNİNİZ YOK. ÜZGÜNÜZ!
<% End If %>