Nested Subroutine Problems.

I'm attempting to create a user interface for a dynamic tree view menu.

My problem is that as I check for child menus if that child HAS children then I need to re-run my subroutine for that menu. Since I don't know the potential number of nested children it is impossible for me to determine the number of recordsets I would need.

I'm stumped on the best approach. Here is my best attempt so far. This code works great if I have no more than one level of nested children. This script is in its infancy so no true functionallity exists I'm just trying to figure out how to properly nest the data for display.

========================================

Sub WriteChildren(arrChildren)

Dim RowMax, ColMax, intRow

RowMax = UBound(arrChildren,2)

ColMax = UBound(arrChildren,1)

For intRow = 0 To RowMax

Response.Write "..." & arrChildren(1, intRow) & " "

Response.Write "<br>"

'CheckForChild(arrChildren(0,intRow)) 'This bombs the page if not commented

Next

End Sub

Sub CheckForChild(mParent)

Dim arrSubMenu

rsSubMenu.Filter = "mParent='" & rsMenu("Menu_ID") & "'"

If rsSubMenu.EOF Then

'No Children

rsSubMenu.Filter = adFilterNone

Else

arrSubMenu = rsSubMenu.GetRows()

rsSubMenu.Filter = adFilterNone

WriteChildren arrSubMenu

End If

End Sub

Dim rsMenu 'RS object for top level menu items

Dim rsSubMenu 'RS object for sublevel menu items

Set rsMenu = Server.CreateObject("ADODB.Recordset")

Set rsSubMenu = Server.CreateObject("ADODB.Recordset")

If Not rsMenu.EOF Then

While Not rsMenu.EOF

Response.Write rsMenu("mDesc")

WriteLinks rsMenu("Menu_ID")

CheckForChild (rsMenu("Menu_ID"))

rsMenu.MoveNext

Wend

End If

This produces the following output:

TOP LEVEL ITEM #1
....1st CHILD TO #1
....2nd CHILD TO #1
TOP LEVEL ITEM #2
TOP LEVEL ITEM #3
....1st CHILD TO #3
....2nd CHILD TO #3
TOP LEVEL ITEM #4

etc...etc...