Rekursive funktioner i ASP?

prøv blot at kalde din funktion for:
Function udskriv_menu(arr_id(), arr_serial(), arr_overskrift(), i)
det mener jeg at jeg har gjort, og den tager pænt imod at array ..

Det er vel også det jeg har gjort (se øverste linie)

Function udskriv_menu(arr_id, arr_serial, arr_overskrift, i)

laengde = Left(arr_serial(i+1), Len(arr_serial(i+1)) - 3)

If laengde = arr_serial(i) OR laengde = "" Then

min_var = "['" & arr_overskrift(i) & "', 'midte.asp?serial=" & arr_serial(i) & "', null]" & vbCrLf
response.write min_var & " " & "]"

udskriv_menu(arr_id(), arr_serial(), arr_overskrift(), i)

Else

min_var = "['" & arr_overskrift(i) & "', 'midte.asp?serial=" & arr_serial(i) & "', null]" & vbCrLf
response.write min_var & " " & i

i = i - 1

udskriv_menu(arr_id(), arr_serial(), arr_overskrift(), i)

End If

End Function
//>Rune

*DOH* .. sorry, jeg mente:
Function udskriv_menu(arr_id, arr_serial, arr_overskrift, i)

altså uden parentes ;-)

Stadig :

"Der kan ikke bruges parenteser ved kald af en Sub" og samme sted.

kald den med

Call udskriv_menu(arr_id, arr_serial, arr_overskrift, i)

Kald funktionen udskriv_menu med denne:
udskriv_menu arr_id, arr_serial, arr_overskrift, i

//>Rune

minijensen1> Nu nærmer vi os. Nu kan den da skrive ud.

Det er ligegyldigt om du angiver dine parametre med eller uden paranteser, funktionen vil stadig kunne identificere dem som arrays.

Problemet er udelukkende dit kald af funktionen. Hvis der er mere end én parameter, kan du kun kalde den med paranteser omkring funktionen, ved at anvende call. Nedenstående kald vil begge virke:

Call udskriv_menu(arr_id, arr_serial, arr_overskrift, i)

eller

udskriv_menu arr_id, arr_serial, arr_overskrift, i

Erstat ( og ) med mellemrum, så virker den.

...ved kald af funtionen altså :) F.eks.

Response.Write fnkTest("hallo") -> Response.Write fnkTest "hallo"

Og så endte det hele alligevel med at jeg fik skruet det sådan sammen at jeg kun kalder funktionen en gang. Men så har jeg da lært lidt om funktioner og hvordan de skal kaldes :)

Tak for hjælpen. Hvis nogen skulle være interesseret i min hjemmebiksede løsning kan den ses her:

<%

Function udskriv_menu(arr_id, arr_serial, arr_serial2, arr_overskrift, i, i2)

laengde_serial1 = Len(arr_serial(i))
laengde2_serial1 = laengde_serial1 - 3

laengde_serial2 = Len(arr_serial2(i2))
laengde2_serial2 = laengde_serial2 - 3

If laengde_serial1 > 0 AND laengde2_serial1 > 0 Then
rest_serial1 = Left(arr_serial(i),laengde2_serial1)
End If

If laengde_serial2 > 0 AND laengde2_serial2 > 0 Then
rest_serial2 = Left(arr_serial2(i),laengde2_serial2)
End If

If Len(arr_serial(i)) + 3 = Len(arr_serial2(i)) Then

response.write "['" & arr_overskrift(i) & "', 'midte.asp?serial=" & arr_serial(i) & "', null," & vbCrLf & "<br>"

Else

response.write "['" & arr_overskrift(i) & "', 'midte.asp?serial=" & arr_serial(i) & "', null]," & vbCrLf & "<br>"

End If

If Len(arr_serial(i)) - 3 = Len(arr_serial2(i)) Then
response.write "],"
End If

End Function


strQuery = "SELECT COUNT(*) AS antal_poster FROM varegrupper"
Set RS = Myconn.Execute(strQuery)
i = 1

antal_poster = Cint(RS("antal_poster"))

Dim arr_id()
redim preserve arr_id(antal_poster)
Dim arr_serial()
redim preserve arr_serial(antal_poster)
Dim arr_serial2()
redim preserve arr_serial2(antal_poster)
Dim arr_overskrift()
redim preserve arr_overskrift(antal_poster)

strQuery = "SELECT * FROM varegrupper ORDER BY serial"
Set RS = Myconn.Execute(strQuery)
do while not RS.eof

arr_id(i) = RS("id")
arr_serial(i) = RS("serial")
arr_overskrift(i) = RS("overskrift")

i2 = i - 1
i = i + 1
arr_serial2(i2) = RS("serial")
RS.movenext
loop
Myconn.Execute(strQuery)

For i = LBound(arr_id) to UBound(arr_id)
Call udskriv_menu(arr_id, arr_serial, arr_serial2, arr_overskrift, i, i2)
Next

%>

Den er ikke finpoleret, der mangler stadig et par småting, såsom at lukke nogle klammer ].