Visning af sub dir

Jeg har prøvet med:

<%
response.buffer = true
set connect = server.createobject(\"ADODB.Connection\")
Connect.open \"Driver={Microsoft Access Driver (*.mdb)}; DBQ=\" & server.mappath(\"images.mdb\")
Set rs = Connect.Execute(\"SELECT * FROM kategori WHERE parentID = 0\")

if not rs.EOF then
do until rs.EOF
%>
<a href=test.asp?linkid=<%=rs(\"id\")%>> <%=rs(\"id\")%> - <%=rs(\"katnavn\")%></a><br>
<%

if Cint(Request.QueryString(\"linkid\")) = rs(\"id\") then

Set rs2 = Connect.Execute(\"SELECT * FROM kategori WHERE parentID = \" & request(\"linkid\") & \"\")


if not rs2.EOF then
do until rs2.EOF
%>
<%=rs2(\"id\")%> - <%=rs2(\"katnavn\")%><br>
<%
rs2.MoveNext
Loop
else
Response.Write \"Ingen Links i denne kategori!\"
  end if

end if
rs.movenext
Loop
else
response.write \"Ingen felter\"
end if
%>

Men det hjælper jo ikke hvis der ikke er en under kategori.

æv