%@LANGUAGE="VBSCRIPT"%>
<%
Dim duyuru
Dim duyuru_cmd
Dim duyuru_numRows
Set duyuru_cmd = Server.CreateObject ("ADODB.Command")
duyuru_cmd.ActiveConnection = MM_duygu_STRING
duyuru_cmd.CommandText = "SELECT ID, ilan FROM duyuru ORDER BY ID DESC"
duyuru_cmd.Prepared = true
Set duyuru = duyuru_cmd.Execute
duyuru_numRows = 0
%>
<%
Dim doctors
Dim doctors_cmd
Dim doctors_numRows
Set doctors_cmd = Server.CreateObject ("ADODB.Command")
doctors_cmd.ActiveConnection = MM_duygu_STRING
doctors_cmd.CommandText = "SELECT units.Title as uname,Personal.Name as pname,Personal.Title,Personal.BirthDate,Personal.BirthPlace,Personal.Pic FROM Personal inner join units on Personal.UnitId=units.ID ORDER BY Personal.ID ASC"
doctors_cmd.Prepared = true
Set doctors = doctors_cmd.Execute
doctors_numRows = 0
%>
<%
Dim Repeat1__numRows
Dim Repeat1__index
Repeat1__numRows = -1
Repeat1__index = 0
duyuru_numRows = duyuru_numRows + Repeat1__numRows
%>
<%
Dim Repeat2__numRows
Dim Repeat2__index
Repeat2__numRows = -1
Repeat2__index = 0
doctors_numRows = doctors_numRows + Repeat2__numRows
%>
ÖZEL DUYGU HASTANESİ
|
|
|
Bu bölümümüzde Sağlık ile ilgili çeşitli bilgiler ve anketlerin yanında, soracağınız sağlık ile ilgili sorular uzmanlarımız tarafından cevaplanacaktır. Ama unutmayalım ki, bu sitede uzmanlarımızın verdiği cevaplar tamamen tavsiye niteliğinde olup, tedavi için lütfen kendi doktorunuza veya sağlık kurumunuza başvurunuz.
|
|
|
|
Copyright © 2007 DUYGUHASTANESİ
|
|
|
|
|
<%
duyuru.Close()
Set duyuru = Nothing
%>
<%
doctors.Close()
Set doctors = Nothing
%>