Undermenu problem igen

Brug denne her:

www.medions.dk/bransholm

den er meget simpel og go...

//>Rune

Desværre skal den tilpasses lidt mere til mit behov. Jeg burde måske have vist dig min javascript-kode:

<script language="JavaScript" src="../jscript/menu.js"></script>
<script language="JavaScript">
function buildNavigation()
{
NyKat("5", "Næste release", false, "../release/release.asp");
  NyKatLink("5", "Tidligere releases", "../release/list.asp?mode=pre");
  NyKatLink("5", "Kommende releases", "../release/list.asp?mode=for");
}

buildNavigation();
document.write(strNav);
</script>

Problemet er, at de SKAL hives ud eller arrangeres i den rigtige rækkefølge. Kan du ændre den menu på dit link så den passer til min?

Har jeg desvære ikke tid til :(

//>Rune

Okay, så håber jeg der er andre der ser denne....

Hmmm, det var der så ikke.... ;o(

Hej mrjowns,

Jeg har lavet en løsning som måske er lidt langhåret, men den er kanon hurtig, og kræver kun et opslag i DB.
1) lave en select fx:
SELECT a.id,a.name,a.parentid,a.pos, count(b.id) as antal
FROM menu a LEFT JOIN menu b on a.id = b.parentid
GROUP by a.id,a.name,a.parentid,a.pos
ORDER BY a.parentid,a.pos

nu har du et recordset der er nogenlunde ordnet, men du vil gerne have dem i den rækkefølge de skal vises

2) smid dem over i et array og lav en sortering fx:
orderArray = rsMenuRows.GetRows
intSize = Ubound(orderArray,2)
redim resultArray(intSize)
intCounter = 0
call OrderTest(0)
call WriteList()

sub OrderTest(parent)
  dim i
  for i = 0 to UBound(orderArray,2)
  'er det et child til den parent vi er ved nu?
  if orderArray (2,i) = parent then
    resultArray(intCounter) = i
    intCounter = intCounter + 1
    call OrderTest(orderArray (0,i))
  end if
  next
end sub

læg mærke til at OrderTest er en rekursiv sub, så den bliver ved med at kalde sig selv til du er nået igennem arrayet og du har den rigtige rækkefølge i resultArray.

3) Du skal nu have skrevet dem ud derfor kalder du sub writeList()
sub WriteList()
  for i = 1 to UBound(resultArray)
  if orderArray (2,resultArray(i)) = 0 then
    response.write "NyKat('" & orderArray (0,resultArray(i)) & "','" & orderArray (1,resultArray(i)) & "',false,'url');"
  else
    response.write "NyKatLink('" & orderArray (2,resultArray(i)) & "','" & orderArray (1,resultArray(i)) & "',false,'url');"
  end if
  next
end sub


Jeg har skrevet writelist om til dig, jeg kan se at du kun har to niveauer, ellers kan orderTest bruges til n-niveauer, den skal man bare tage højde for i writeList, men så bliver det lidt mere indviklet.

stay cool

KeRs