<% if Session("uye")="" then Response.Write("Üye olmak istiyorum") Else Response.Write("" & Session("uye") & "") End if %> <% if Session("uye")="" then Response.Write("Üye girişi") Else Response.Write("Çıkış") End If%>   <%=Date%>  
      
ANASAYFA          HAKKIMIZDA         HABERLER         SANAL TUR          KARİYER          İLETİŞİM          SSS          SİTE HARİTASI
SİTE HARİTASI
<% Function Gebelik(KategoriID) sql="SELECT * FROM TBL_GEBELIK WHERE UstKategoriID=" & KategoriID & " ORDER BY SNO desc" set rst=Server.CreateObject("adodb.recordset") rst.open sql, DataConn, 1, 3 while not rst.eof if Len(trim(rst.fields("Icerik")))>1 then link="'Gebelik.asp?KategoriID=" & rst.fields("KategoriID") & "'" else link="null" end if Response.Write("['" & rst.fields("KategoriAdi") & "', " & link & ",") Gebelik(rst.fields("KategoriID")) Response.Write("],") rst.movenext wend rst.close() End Function Function TupBebek(KategoriID) sql="SELECT * FROM TBL_TUPBEBEK WHERE UstKategoriID=" & KategoriID & " ORDER BY SNO desc" set rst=Server.CreateObject("adodb.recordset") rst.open sql, DataConn, 1, 3 while not rst.eof if Len(trim(rst.fields("Icerik")))>1 then link="'TupBebek.asp?KategoriID=" & rst.fields("KategoriID") & "'" else link="null" end if Response.Write("['" & rst.fields("KategoriAdi") & "', " & link & ",") TupBebek(rst.fields("KategoriID")) Response.Write("],") rst.movenext wend rst.close() End Function Function AilePlanlamasi(KategoriID) sql="SELECT * FROM TBL_AILEPLANLAMASI WHERE UstKategoriID=" & KategoriID & " ORDER BY SNO desc" set rst=Server.CreateObject("adodb.recordset") rst.open sql, DataConn, 1, 3 while not rst.eof if Len(trim(rst.fields("Icerik")))>1 then link="'AilePlanlamasi.asp?KategoriID=" & rst.fields("KategoriID") & "'" else link="null" end if Response.Write("['" & rst.fields("KategoriAdi") & "', " & link & ",") AilePlanlamasi(rst.fields("KategoriID")) Response.Write("],") rst.movenext wend rst.close() End Function Function Jinekoloji(KategoriID) sql="SELECT * FROM TBL_JINEKOLOJI WHERE UstKategoriID=" & KategoriID & " ORDER BY SNO desc" set rst=Server.CreateObject("adodb.recordset") rst.open sql, DataConn, 1, 3 while not rst.eof if Len(trim(rst.fields("Icerik")))>1 then link="'Jinekoloji.asp?KategoriID=" & rst.fields("KategoriID") & "'" else link="null" end if Response.Write("['" & rst.fields("KategoriAdi") & "', " & link & ",") Jinekoloji(rst.fields("KategoriID")) Response.Write("],") rst.movenext wend rst.close() End Function Function Kisirlik(KategoriID) sql="SELECT * FROM TBL_KISIRLIK WHERE UstKategoriID=" & KategoriID & " ORDER BY SNO desc" set rst=Server.CreateObject("adodb.recordset") rst.open sql, DataConn, 1, 3 while not rst.eof if Len(trim(rst.fields("Icerik")))>1 then link="'Kisirlik.asp?KategoriID=" & rst.fields("KategoriID") & "'" else link="null" end if Response.Write("['" & rst.fields("KategoriAdi") & "', " & link & ",") Kisirlik(rst.fields("KategoriID")) Response.Write("],") rst.movenext wend rst.close() End Function %>
Gizlilik ve Güvenlik              Yasal Kullanım             Tavsiye Et              Internete Giriş Sayfası Yap              Sık Kullanılanlara Ekle              Geri              İleri
© MAYAKLİNİK SAĞLIK HİZMETLERİ LTD.ŞTİ.