<!--#include file="baglanti.asp"-->
<ul type=disc>
<%
set tablo=Server.CreateObject("ADODB.Recordset")
tablo.open sql,baglanti,1,3

do while not tablo.eof
id=tablo("id")
%>

<li><%=tablo("kategori")%></li>
<%
set sinan=Server.CreateObject("ADODB.Recordset")
sql="select * from altkategoriler where kategori_id=" & id
sinan.open sql,baglanti,1,3

if sinan.recordcount>0 then
%>
<ul type=square>
<%
do while not sinan.eof
%>
<li><%=sinan("adi")%></li>
<%
sinan.movenext
loop
%>
</ul>
<%
end if

tablo.movenext
loop
%>
</ul>
<p>&nbsp;</p>sql="select * from kategoriler"