ASP İle Ağaç Menu Yaapısı Hazırlanması

http://prntscr.com/sygusb
Linkteki gibi bir yapıyı veri tabanında ekletebiliyorum buraya kadar sıkıntı yok. Bunu ekrana yazdıramadım.
Bunun mantığı nedir. Veya örnek kod var mı. Alt kategori varsa açsın yoksa açmasın gibi
Klasik Asp

Gerçek DB bilgilerini paylaşırsanız yardımcı olmaya çalışırım
gorunmek @ gmail.com

<!--#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"

Bu mantıkta yapabilirsiniz hocam.

Ücretli şekilde yardımcı olabilirim.