rekursiv funktion links

jeg har en tabel med følgene:

Side_ID / idet på den side der er oprette
OCat / hvis linket er en overkategori er værdien 1 ellers 0
SubCat / har værdien af den SideID den høre til.

Hvórdan får jeg nu skrevet linkene ud

Over kategori 1
        Sub 1
          Sub 1 link
          Sub 1 link
          Sub 1 link
                Sub 2
                  Sub 1 link
                  Sub 1 link
                  Sub 1 link
Over kategori 2
        Sub 1
          Sub 1 link
          Sub 1 link
          Sub 1 link
                Sub 2
                  Sub 1 link
                  Sub 1 link
                  Sub 1 link

jeg har selv dette hehe...

<%
set rs = connect.Execute("Select * FROM Sider WHERE SubCat = 0 ")
if not rs.EOF then
Do until rs.EOF
%>

<%=rs("Side_navn")%><br>


<%


rs.MoveNext
Loop
else
response.write "ingen felter"
end if
%>

Men her kommer overkategorierne jo kun ud