Undermenu går tilbage til menu

Jeg har lige testet, at den faktisk heller ikke kan klare en undermenu til en undermenu :S Det havde jeg sådan set troet... Såårh, punker lige nogle flere point på, så håber jeg at der er en del vil vise mig det :)

Du mangler en isParent() funktion i dit script.

Men jeg vil anbefale at du går over og bruger en rekursiv funktion. Jeg har lavet en som du kan finde her:
http://www.eksperten.dk/spm/664011

Den viser alle menupunkter, men der skal også bare indbygges en isParent() funktion, også fungere den som en foldUdOnClick-menu. Den skal jeg nok lave, hvis du er intreserret i at bruge mit script :o)

Ehh, som sagt... Newbie evner... En rekursiv funktion?
Det der eksempel i spørgsmålet, ser godt nok lidt simplere ud end mit :D

Jeg må indrømme at min kunnen ikke strejker sig meget længere end det jeg har lavet der - har aldrig helt fanget konceptet med funktioner - altså forstår godt det smarte, men fatter ikke helt alle de ting man kan lave i dem :) Så en lille bitte smule mere hjælp, ville jeg sætte stor pris på!

Takker :D

Vi kan jo så starte med definationen af en "rekursiv funktion". Det er bare en funktion som kalder sig selv :o)

function doIT(fTal)
  if fTal <= 10 then
    call doIT(fTal+1)
  end if
  response.write fTal &"<br>"
end function
call doIT(1)

funktionen vil udskrive tallene 10 - 1. Hvis du flytter response.write op før if sætningen udskriver den tallene 1 - 10.

Man skal dog passe på med dem, da den kan løbe evigt, hvis man ikke styre dem.

Det var så dagens lektion :o)

Jeg skal nok rette menu koden, så den virker som en foldud, men jeg får nok ikke tid idag. Hvis jeg (eller andre) ikke har givet lyd inden 08:00 i morgen, så smid en kommentar herinde, så jeg får en mail om ?'et. Ellers glemmer jeg det bare :o)

Hopla... Tak for definitionen :) Så lærte jeg også noget nyt - skide smart med at kalde sig selv i funktionen...! Havde jeg sgu ikke lige tænkt på...

Tak for hjælpen :) Håber du gider lave det i min kode, så jeg stadig kan finde rundt i det, hæhæ... Tusind tak :)

Lever du endnu? :)

Var desværre ikke hjemme i weekenden, men jeg er gået i gang med det. Skulle være færdig om et lille stykke tid :o)

Så er første udkast klar, men jeg har ikke testet det:

'Find sidens ID (skal sendes med som parameter i url'en)
PageID = Request.querystring("pageID")

Function TegnMenu(ThisID,Indrykning)
dim FunkRS

'select rodpunkter eller underpunkter
if ThisID <> "" then
  'Underpunkter
  set FunkRS = conn.Execute("select * from menu where pID="& ThisID)
else
  'Roden af menuen
  set FunkRS = conn.execute("select * from menu where pID is null")
end if

do while not FunkRS.eof
  'tegn menupunktet
  response.write  Indrykning & "<a href=""index.asp?pageID="& FunkRS("ID") &""">"& FunkRS("menu") &"</a><br>"&chr(13)
  'kald funktionen igen for at finde evt underpunkter
  if isParent(FunkRS("ID")) then
    TegnMenu FunkRS("id"),Indrykning&"&nbsp;&nbsp;"
  end if
  FunkRS.MoveNext
loop
End function

function isParent(fID)
dim fORS
  if not (isnumeric(PageID&"") and isnumeric(fID&"")) then
    isParent = false
  else
    if fID&"" = PageID&"" then
      isParent = true
    else
      set fORS = conn.execute("select pID from menu where id="& PageID)
      isParent = isParentSub(fID,fORS("pID"))
    end if
  end if
end function

function isParentSub(fID,fPageID)
dim fORS
  if not isnumeric(fPageID&"") then
    isParentSub = false
  else
    if fID&"" = fPageID&"" then
      isParentSub = true
    else
      set fORS = conn.execute("select pID from menu where id="& fPageID)
      isParentSub = isParentSub(fORS("pID"))
    end if
  end if
end function

Læg mærke til disse to linjer:
PageID = Request.querystring("pageID")
...
  response.write  Indrykning & "<a href=""index.asp?pageID="& FunkRS("ID") &""">"& FunkRS("menu") &"</a><br>"&chr(13)

Det er nu vigtigt at sende sidens ID med på links, så man ved hvilken side man er på.

Hey igen... Jeg har virkelig knoklet med dit eksempel - og kan sgu bare ikke få det til at spille :S

Du tror ikke du kan lave et eksempel ud fra det jeg har lavet? Eller er det helt ude i hampen?

Altså det som mit eksempel ikke kan er følgende: Den kan godt expande en menu og sætte en undermenu ind. Men når man klikker på et underpunkt går den tilbage til hovedmenuen...

Man kan så heller ikke have undermenuer til en undermenu. Men det kan vi måske tage til sidst - det vigtigste er mit første problem :)

Ville lige høre om du selv har fundet ud af noget...

Jeg har være i USA de sidste 3 uger, hvorfor jeg ikke har være aktiv herinde, men nu er jeg tilbage igen.

Luk