<%
Set birimler =Server.CreateObject("ADODB.Recordset")
sql="SELECT * FROM birimler order by sira asc"
birimler.Open sql, baglanti, 1, 3
%>
<%do while not birimler.eof%>
<%=birimler("kategori_adi")%>
<%
Set doktorlar =Server.CreateObject("ADODB.Recordset")
sql="SELECT * FROM doktorlar where grup="&birimler("id")
doktorlar.Open sql, baglanti, 1, 3
%>
<%do while not doktorlar.eof%>