Asp kode gør ikke som jeg vil have:-(

Jeg har et lille problem med følgende kode:

<%
StartTime = Timer()

If request.querystring("Kategorie") <> "" Then
session("Kategorie") = request.querystring("Kategorie")
Else
session("Kategorie") = "8"
End If

If request.querystring("Forside") <> "" Then
session("Forside") = request.querystring("Forside")
Else
session("Forside") = "8"

End If
%>

...

<%
'Åbn forbindelse til databasen
set conn = server.createobject("ADODB.connection")
conn.open "Driver={mysql};Server=ip;Database=database;UID=brugernavn;PWD=kode;"

Dim kID
Dim ukID

Sub RtrnKat(pid)
  Dim rs
  Dim rs_sql
  Set rs = Server.CreateObject("ADODB.Recordset")
  rs_sql = "SELECT Navn, Id, ParentID FROM Kategorier WHERE ParentID = " & pid & " Order By Prioritet asc, Navn asc"
  rs.Open rs_sql, Conn, 1, 1
  Do While Not rs.EOF
      If rs("parentID") = 0 Then kID = rs("parentID")
        Response.Write "<tr>" & _
                      "<TD width=18 height=15></TD>" & _
                      "<TD width=10 height=15>"
             
        If CInt(session("Kategorie")) = CInt(rs("Id")) Then
        Response.Write "<IMG height=5 src=""Pics/firkant_fyld.gif"" width=5></TD>"& _
                      "<TD bgColor=#dfebc8 height=15><B>"
        Else
        Response.Write "</TD>" & _
                        "<TD height=15><B>"
        End If

        If rs("ParentID") <> 0 Then
        Response.Write "<A href=""index.asp?Kategorie=" & rs("Id") & "&Forside=" & rs("Id") &""">" & "&nbsp;&nbsp;" & rs("Navn")
        Else
        Response.Write "<A href=""index.asp?Kategorie=" & rs("Id") & "&Forside=" & rs("Id") &""">" & rs("Navn")
        End If
       
        Response.Write "</A></B></TD>" & _
                      "</tr>"     
      If CInt(Session("Kategorie")) = CInt(rs("ID")) Then RtrnKat(rs("ID"))
      If kID = rs("ID") Then RtrnKat(rs("ID"))
      If ukID = rs("ID") Then RtrnKat(rs("ID"))
      rs.MoveNext
  Loop
  rs.Close
  Set rs = Nothing
End Sub

Call RtrnKat(0)

conn.close
set conn=Nothing
%>     

Problemet er at den ikke udskriver underkategorierne til underkategorierne. Lad mig illustrer det:

id:      parentid:      navn:
1        0              kategori1
2        1              underkategori1 til kategori1
3        1              underkategori2 til kategori1
4        0              kategori2
5        4              underkategori3 til kategori2
6        5              underunderkategori1 til underkategori3

I html bliver det formatteret sådan her:

kategori1
    underkategori1
    underkategori2
kategori2
    underkategori3
          underunderkategori1

Min kode udskriver altså ikke underunderkategori1. Check www.just2funny.dk/1/ for at se hvad jeg mener ... tryk på vitser - blondiner ... der skulle så gerne komme en undermenu men det gør der ikke :-(

Håber på at kunne få noget hurtigt hjælp ... det er derfor jeg har smidt de 200 point i spørgsmålet.