Veiratabanı ile alt kategori sistemi

Merhaba ;
 
Çok araştırdım fakat bu konu ile ilgili aydınlatıcı bir bilgi bulamadım.
 
İstediğim olay şu ;
 
Asp ile yapılmış veritabanı sistemine bağlı olarak 
Ana Kategori - Alt Kategori - Alt Alt Kategori
Ve bu sistemi bir acordion menu ile görselleştirmek.
 
Bana bunun mantığını ve mümkünse örnek il açıklayacak değerli bir hocam varmıdır.
 
aspx ile yapılmış örnek var ama asp ile yapmaya çalışlıyorum.

Aşağıda ki kodlarla accesten aldığım veriyi nasıl accordion menu haline getirebilirim yardımcı olabilecek varmıı?
 
<%
sub subRecursive(ParentID, intLevel) 'Burada ParentID değişkeni üst kategorimizin id değeri için , intLevel değişkeni kategorilere soldan boşluk bırakmak için kullancağız.
dim objRs
dim strSql
strSql = "SELECT * FROM menu WHERE UstId= " & ParentID
set objRs = objConn.Execute(strSql)
if Not objRs.EOF then
do while Not objRs.EOF
%>
<tr>
<td>
<img src="bosluk.gif" border="0" width="<%=25*intLevel%>" height="1">
<a href="default.asp?id=<%=ObjRs("id")%>"><%=ObjRs("m enuad")%></a>
</td>
</tr>
<%subRecursive objRs("id"), intLevel + 1
objRs.MoveNext
loop
end if

if Not objRs Is Nothing then
objRs.Close
end if
set objRs = Nothing

end sub
%>