Hjælp til rekursiv funktion

Skal det kun være en 2-niveaus menu? For så er det jo ikke nødvendigt at lave det rekursivt ..

Nej

Hmmm, det lader til at være en vanskelig opgave?

Nogen der kan hjalpe mig paa vej i den rigtige retning?

Noget i denne stil:

function menu(fParent, byVal fLevel)
dim fRS, ff
  set fRS = conn.execute("select * from internetgroup where ParentGroupName='"& fParent &"'")
  while not fRS.eof
    for ff=1 to fLevel
      response.write " "
    next
    response.write fRS("GroupingName")
    call menu(fRS("GroupingName"), fLevel+1)
    fRS.MoveNext
  wend
end function

call menu("", 0)

Havde lige glemt en <br>:
response.write fRS("GroupingName") &"<br>"

Ser ud til at dine kolonner ID og RID i stedet for ParentGroupName og GroupingName, men det kan du vel godt selv rette til i koden :o)

Se det var nemt :) Og det har jeg brugt mange timer på!

Det virker som en charm... du fortjener point og lidt mere til :P

Jeg arbejder meget med rekursivt funktioner, også er det ikke så svært :o)

.o) <-- One Eyed Jack

Vil jeg på nogen måde kunne sortere dem??

Jeg tænker hvis nu kalder mine menuer og indsætter værdi for rækkefølge først.:

1. Fyr
2. Gas
3. El
4. Bruse
5. DillerDong

osv. ?

Det kan du sagtens. Det er bare at smide en order by på selecten. Du kunne også gemme den værdi i en helt anden kolonne så du er fri for at have talene med på menuerne:

set fRS = conn.execute("select * from internetgroup where ParentGroupName='"& fParent &"' order by sortKolonne")

Havde egentlig prøvet med order by men det virkede ikke men det virker åbenbart nu ;)

Jeg tror jeg laver en form for funktion til at fjerne "1." etc.

Hvis du bruge det, skal du være opmærksom på at "10. tekst" kommer før "2. tekst" når det er en tekst sortering:

"1. tekst"
"10. tekst"
"11. tekst"
"2. tekst"
"3. tekst"

Skal tekst sortering fungere skal du skrive "01. tekst".

rammer vel samme problem igen ved 100 så..

Yep, men nu gik jeg ikke ud fra at du ville overskride den grænse :o)
Men så er det bare at navngive "001", "002".

ps. Alt dette ville ikke være et problem, hvis du lavede en ny kolonne tli sortering. Hvilket også ville være mest rigtigt og hensigtsmæssig, da det ikke forstyre de aktuelle data, og derfor nemt kan migreres til en ny platform i fremtiden... En ny ansat udvikler er måske heller ikke lige opmærksom på at han skal fjerne de første tegn.

Jeg kan desværre ikke bare tilføje en ekstra kolonne, det bliver hentet ud fra økonomisystem, og der har de ikke mulighed for at lave sortering. Dvs. jeg bliver nød til at lave en slags workaround :) Hvis de vil kunne styre sorteringen.