---

Hej.

Jeg er stødt ind i et problem med et fotogalleri jeg er igang med at lave.

Siden: http://www3.ckweb.dk/pg/version2.0.000B3/?page=tags

Problemet er menuen til venstre.

Jeg ønsker at lave en menu struktur ligesom man kender fra Windows / andre
navigations programmer...

Jeg har lavet et eksempel her:
http://www3.ckweb.dk/pg/v2menu/

Nogle der har en god ide til hvordan man laver det?

Jeg bruger en rekursuv funktion til at lave min menu med...

qTempElement = 0
function Tags(startTag,levels,helptext)
for i = lbound(arrUID) +1 to ubound(arrUID)
if arrOwner(i) +0 = startTag +0 then
select case levels
case 0
TempLevel = ""
TempLevelToggle = "0"
case 1
TempLevel = "class='child1'"
TempLevelToggle = "1"
case 2
TempLevel = "class='child2'"
TempLevelToggle = "2"
case else
TempLevel = "class='child3'"
TempLevelToggle = "3"
end select
qTempUseToggle = false
for j = lbound(arrUID) +1 to ubound(arrUID)
if arrOwner(j) +0 = arrUID(i)+0 then
qTempUseToggle = true
end if
next

prt "<div class='ToggleImage'>"
if qTempUseToggle then
prt "<img src='_bib/gfx/content/menu/child" & TempLevelToggle &
"open.png' id='ToggleImage" & qTempElement & "' onclick='ToogleDisplay(" &
qTempElement & ",""" & qPath & "view.asp?type=tag&uid=" & arrUID(i) & ""","
& TempLevelToggle & ");'>"
else
prt "<img src='_bib/gfx/content/menu/child" & TempLevelToggle &
"none.png' id='ToggleImage" & qTempElement & "'>"
end if
prt "</div>"
prt "<a href='#' title='" & utf9(cPageTags & helptext & " --> " &
arrTag(i)) & "' " & TempLevel & " onclick='ToogleDisplayTagLoad(" &
qTempElement & ",""" & qPath & "view.asp?type=tag&uid=" & arrUID(i) &
""");'>"
prt utf9(arrTag(i)) & "</a>"
prt "<div id='l" & qTempElement & "' style='display:none'>"
qTempElement = qTempElement + 1
prt Tags(arrUID(i),levels+1,helptext & " --> " & arrTag(i))
prt "</div>"
end if
next

end function

prt Tags(0,0,"")

Og elementerne:
arrUID = split(arrUID,",")
arrTag = split(arrTag,",")
arrOwner = split(arrOwner,",")
hentes ud af en database...

Christian