Hjælp til rekursiv funktion

Det skulle være rimeligt lige til. Du skal blot bruge strenge i stedet for tal.

Function Threads(strID)   
  For m = 1 to Ubound(arrID)
    If Cstr(arrRE(m)) = Cstr(strID) Then
      Threads = Threads & "<ul><li>" & arrSU(m) & Threads(arrID(m)) & "</li></ul>"   
    End If       
Next
End Function

Har ikke testet det, men hvis det er lavet nøjagtigt som eksemplet du linkede til, så vil jeg tro det er det eneste du behøver at rette...

Du skal selvfølgelig også kalde funktionen med en streng, f.eks. Threads("Sav")

Hvis jeg kalder funktionen med threads("sav") får jeg ikke kun undermenuerne til sav?

ellers skal jeg jo til at lave en loop som kalder threads(groupingName) ?

Sidstnævnte er vel heller ikke det store problem? Du har vel alle GroupingNames enten i en database eller i et array?

Korrekt, men det var da nemmere med det andet hvor jeg bare kaldte funktionen en enkelt gang :)

De ekstra par linier går vel nok ;)

Svar herfra, hvis du kan bruge mit input til noget!

Får en out of memory... kan ikke lige se jeg har overset noget...

Function menu()   
   
        call openDB(conn)

        mySQL = "Select * from internetgroup where ParentGroup = ''"
        Set rsEntries = conn.execute(mySQL)
       
        if rsEntries.eof or rsEntries.bof then
            ' error handler
            response.Write("alvorlig fejl")
            response.End()
        else    
       
            while not rsEntries.eof or rsEntries.bof
              call printMenu(rsEntries("Grouping"))
            rsEntries.movenext
            wend
        end if
       
        call closeDB(conn)
       
    end function    
   
   
    function PrintMenu(strID)
   
    call openDB(conn)

    mySQL = "Select * from internetgroup"
    Set rsEntries = conn.execute(mySQL)
       
    Do

      ' Gem data som kommasepareret liste
      arrId = arrId & "," & rsEntries("grouping")
      arrTopLevel = arrToplevel & "," & rsEntries("parentGroup")
      arrTitle = arrTitle & "," & replace(rsEntries("name"),"&#187;","'")
   
      rsEntries.MoveNext
      loop while not rsEntries.eof
       
        ' Lav arrays med data
        arrID = Split(arrID,",")
        arrTopLevel = Split(arrTopLevel,",")
        arrTitle = Split(arrTitle,",")
       
      For m = 1 to Ubound(arrID)

        If Cstr(arrTopLevel(m)) = cStr(intID) Then
            PrintMenu = PrintMenu & "<ul><li>" & arrTitle(m) & PrintMenu(arrID(m)) & "</li></ul>"   
        end if    
      Next
     
      response.Write(PrintMenu)
       
    end function

Nevermind ;-) Overså at jeg blev ved at kalde PrintMenu her:

  PrintMenu = PrintMenu & "<ul><li>" & arrTitle(m) & PrintMenu(arrID(m)) & "</li></ul>"

For en god ordensskyld, hvis andre skulle få brug for det så virker nedenstående.

Function menu()   
   
        call openDB(conn)

        mySQL = "Select * from internetgroup where not ParentGroup<>''"
        Set rsEntries = conn.execute(mySQL)
       
        if rsEntries.eof or rsEntries.bof then
            ' error handler
            response.Write("alvorlig fejl")
            response.End()
        else    

            while not rsEntries.eof or rsEntries.bof
              response.Write(rsEntries("Grouping") & i & "<br>")
              response.Flush()
              call printMenu(rsEntries("Grouping"))
            rsEntries.movenext
            wend
        end if
       
        call closeDB(conn)
       
    end function    
   
   
    function PrintMenu(strID)
   
    call openDB(conn)

    mySQL = "Select * from internetgroup"
    Set rsEntries = conn.execute(mySQL)
       
    Do

      ' Gem data som kommasepareret liste
      arrId = arrId & "," & rsEntries("grouping")
      arrTopLevel = arrToplevel & "," & rsEntries("parentGroup")
      arrTitle = arrTitle & "," & replace(rsEntries("name"),"&#187;","'")
   
      rsEntries.MoveNext
      loop while not rsEntries.eof
       
        ' Lav arrays med data
        arrID = Split(arrID,",")
        arrTopLevel = Split(arrTopLevel,",")
        arrTitle = Split(arrTitle,",")
       
      For m = 1 to Ubound(arrID)

        If Cstr(arrTopLevel(m)) = cStr(intID) Then

            PrintMenu = PrintMenu & "<ul><li>" & arrTitle(m) &  "</li></ul>"   

        end if    
      Next
     
      response.Write(PrintMenu)
       
    end function
       


call menu()

Hmm og jeg var for hurtig har dette i db'en

Name = Krydderi mix
GUID = {62DE787C-304F-4F11-9E84-F599D67C242D}
ParentGroup = Krydderier

Grouping = Krydderier
Name = Krydderier
GUID = {840D8544-F22D-47E8-BD9C-2B652F1858C1}
ParentGroup =

Grouping = Nudler
Name = Nudler
GUID = {469A7EDA-8D93-4B62-BD6D-228312B3BC85}
ParentGroup =

Grouping = Smørepålæg
Name = Smørepålæg
GUID = {EF677483-1DDD-4332-A8E3-5D748EA1A1AA}
ParentGroup =




får denne menu ud :

Krydderier
+Krydderier
+Nudler
+Smørepålæg

Nudler
+Krydderier
+Nudler
+Smørepålæg

Smørepålæg
+Krydderier
+Nudler


Det helt galt...