<%@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İ
