Har et lille problem med loop af udtræk :-/

jeg har følgende kode, mit problem er så bare jeg kan ikke få den til at lave loop på nogen underpunkter/subcats, hvordan skal det gøres ???

Nb. databasen til projektet kan findes her...
http://80.62.254.166/cats/link.zip

koden ser ud som følgende:

<%  Response.Cookies(\"tgDate\") = now()%>
<body topmargin=\"0\" leftmargin=\"0\">
<center>
<%
Set Conn = Server.CreateObject(\"ADODB.Connection\")
Conn.Open = \"DRIVER={Microsoft Access Driver (*.mdb)};DBQ=\" & Server.MapPath(\"link.mdb\")

sql = \"select * from cat\"
set rs = Conn.Execute (sql)
%>
<div align=\"left\">
<table border=\"0\" width=250 cellspacing=\"0\" cellpadding=\"0\" style=\"border-collapse: collapse\" bordercolor=\"#111111\">
<%
While NOT rs.EOF
%>
<TD ALIGN=LEFT VALIGN=top><font face=\"Verdana\" size=1><b><%=rs(\"cat\") & \" \" & rs(\"id\") %> </a></b></font>

<%
ParentID = rs(\"id\")

Response.Write \"<br>\"

subsql = \"SELECT * FROM subcat where catID=\'\" & ParentID & \"\'\"
set rssubcat = conn.Execute(subsql)
%>

<font face=\"Verdana\"> </font>

<font face=\"Verdana\" size=1><a href=\"showlink.asp?CatID=<%=rssubcat(\"subcatID\")%>&parentID=<%=rs(\"id\")%>&parentname=<%=server.urlencode(rs(\"cat\"))%>&Subname=<%=server.urlencode(rssubcat(\"Subcatname\"))%>\"><%=rssubcat(\"subcatname\")%></a><p style=\"margin-top: 0; margin-bottom: 0\"></font>

</p>
<font face=\"Verdana\"> </font>
</td>

</tr>
<%
  rs.MoveNext
  Wend
%>
</TABLE>

</div>

<% rs.close
Conn.Close
set Conn = nothing
%>
<CENTER>
<p style=\"margin-top: 0; margin-bottom: 0\">&nbsp;</p>
</CENTER>
<center>
<p style=\"margin-top: 0; margin-bottom: 0\">
</p>
</center>