Menu array

Hejsa,

Sidder og prøver at lave en rekruisiv funktion der kan udskrive følg:
Forside > 2. level menu > 3. level menu osv...
<%
Dim arIDs()
Redim arIDs(1)
Dim arTitles()
Redim arTitles(1)

Dim i
Dim ArraySize
    ID = request.querystring("id")
    If ID = "" then
      ID = 1
    End If
   
    strSQL = "SELECT * FROM Indhold ORDER BY Title ASC;"
    Set objRec = Conn.Execute (strSQL)

Sub FillArray
i = 0
    DO UNTIL ID = 0
        objRec.Filter = "ID = " & ID

        arIDs(i) = objRec("ID")
        arTitles(i) = objRec("Title")

        If NOT objRec("ParentID") = 0 then   
            Redim Preserve arIDs(i+1)
            Redim Preserve arTitles(i+1)
        End If
                   
        ID = objRec("ParentID")
        i = i + 1
    LOOP
End Sub

FillArray

If NOT Request.QueryString("ID") = "" then
        Response.Write "Du er her: "
Else
    Response.Write "Du er her: "
End If
    For i = UBound(arIDs) to 0 Step - 1
        If i = 0 then
            Response.Write arTitles(i)
        Else
            If NOT arIDs(i) = "" then
        Response.Write "<a href='?id="&arIDs(i)&"'>"&arTitles(i)&"</a> &gt; "
            End If
        End If
    Next
%>

Ovenstående virker sådan set godt nok, men det kræver jeg at kan give en form for ID.

Det jeg øsnker at at kunne give stien i stedet for.. Fx. "/undermappe/default.asp" Jeg vil ikke sende nogle ID med rundt på alle mine sider.

Er det muligt at lave??