Menu-træ

http://www.4guysfromrolla.com/webtech/101202-1.shtml

Problemet er at få "tegnet" html'en, ikke?

Du vil nok anvende en for-løkke, der skriver html'en, og hvis du vil have mulighed for at have uendeligt antal niveauer, skal du bruge en rekursiv funktion (dvs. at den kalder sig selv). noget i stil med:

sub skrivMenu(argumenter)
for i = 0 to AntalIalt
  if nytniveau then
      call skrivMenu(argumenter)
  else
      Response.write menupunkter
  end if
next
end sub

problemet med vbscript er at det ikke er et stærkt sprog hvad angår scope. Det betyder at i bliver "genbrugt", så når funktionen kaldersig selv, og vender tilbage, så har i værdien fra sidste gennemløb med sig.

Du er nødt til at udskrive menuen i javascript, der på dette punkt er stærkere end vbscript. Jeg har selv gjort det clientside, og regner med at du ogs kan gøre det med serverside javascript.

Men det er ikke let; tungen lige i munden når du laver rekursive funktioner.

Har du noget som vi kan se?

Den algoritme åbner hele menuen på én gang.
Den skal ikke åbne undermenuerne før man klikker på menupunktet i niveauet ovenover. Altså man kan ikke se "Børnebukser" før man klikker på "Bukser"

Min kommentar var til HYPERACTIVE.DK

Idanielsen...
Ja, men det er noget rod. Denne meget lange kode får min menu ned i 3 niveauer.
--------------
viskategori = CStr(Replace(request.querystring("viskategori"), "'", "''"))
viskategori2 = CStr(Replace(request.querystring("viskategori2"), "'", "''"))

if viskategori <> "" then
viskategori = CStr(Replace(request.querystring("viskategori"), "'", "''"))
else
viskategori = 0
visikkehoved = 65
end if
'response.write viskategori2

'finder hovedkategorierne
set rskategori=db.execute("SELECT Notes1.Txt as notesTxt, Notes1.NotesRecId, StockLocations1.StockLoc, StockLocations1.Txt FROM StockLocations1 INNER JOIN Notes1 ON StockLocations1.RecID = Notes1.NotesRecId WHERE Notes1.Txt = '"& 0 &"' order by StockLocations1.Txt")

'finder underkategorier
set rskategori2=db.execute("SELECT Notes1.Txt, Notes1.NotesRecId, StockLocations1.StockLoc, StockLocations1.Txt FROM StockLocations1 INNER JOIN Notes1 ON StockLocations1.RecID = Notes1.NotesRecId WHERE Notes1.Txt = '"& viskategori &"' order by StockLocations1.Txt")

if not rskategori.eof then
while not rskategori.eof
%>
    <font face="verdana" size="2"><a href="default.asp?viskategori=<%= rskategori("StockLoc") %>" style="color: #000000" style="text-decoration:none;"><b><%= rskategori("Txt") %></b></a>
    <br>
    <%
    kl = CStr(viskategori)
    if rskategori("StockLoc") = kl AND visikkehoved <> 65 then
      if not rskategori2.eof then
      while not rskategori2.eof
        set rskategori3=db.execute("SELECT Notes1.Txt, Notes1.NotesRecId, StockLocations1.StockLoc, StockLocations1.Txt FROM StockLocations1 INNER JOIN Notes1 ON StockLocations1.RecID = Notes1.NotesRecId WHERE Notes1.Txt = '"& viskategori &"' order by StockLocations1.Txt")
        d = rskategori3("StockLoc")
        set rskategori32=db.execute("SELECT Notes1.Txt, Notes1.NotesRecId, StockLocations1.StockLoc, StockLocations1.Txt FROM StockLocations1 INNER JOIN Notes1 ON StockLocations1.RecID = Notes1.NotesRecId WHERE Notes1.Txt = '"& d &"' order by StockLocations1.Txt")
        if not rskategori3.eof AND not rskategori32.eof then
          while not rskategori3.eof
          %>
        <font face="verdana" size="2"><a href="default.asp?viskategori=<%= rskategori("StockLoc") %>&viskategori2=<%= rskategori3("StockLoc") %>" style="color: #000000" style="text-decoration:none;"><b>&nbsp;&nbsp;<%= rskategori3("Txt") %></b></a>
        <br>
        <%
            set rskategori4=db.execute("SELECT Notes1.Txt, Notes1.NotesRecId, StockLocations1.StockLoc, StockLocations1.Txt FROM StockLocations1 INNER JOIN Notes1 ON StockLocations1.RecID = Notes1.NotesRecId WHERE Notes1.Txt = '"& viskategori2 &"' order by StockLocations1.Txt")
            if not rskategori4.eof then
            while not rskategori4.eof
            viskat = rskategori4("StockLoc")
            %>
            <font face="verdana" size="2"><a href="produktoversigt.asp?viskategori=<%= rskategori("StockLoc") %>&kategori=<%=rskategori4("StockLoc")%>&viskategori2=<%= rskategori3("StockLoc") %>" style="color: #000000" style="text-decoration:none;">&nbsp;&nbsp;&nbsp;<%= rskategori4("Txt") %></a>
            <br
            <%
            rskategori4.movenext
            wend
              rskategori4.close
              set rskategori4 = Nothing
            end if
        rskategori3.movenext
          wend
          rskategori3.close
          set rskategori3 = Nothing
          rskategori32.close
          set rskategori32 = Nothing
        else
        'viskat = rskategori2("StockLoc")
        %>
        <font face="verdana" size="2"><a href="produktoversigt.asp?viskategori=<%=rskategori("StockLoc")%>&kategori=<%=rskategori2("StockLoc")%>" style="color: #000000" style="text-decoration:none;">&nbsp;&nbsp;&nbsp;<%= rskategori2("Txt") %></a>
        <br>
        <%
        end if
        rskategori2.movenext
        wend
        rskategori2.close
      set rskategori2 = Nothing
      end if
    end if
    %>
    <%
    rskategori.movenext
wend
end if

rskategori.close
set rskategori = Nothing
------------------

Princippet er at tage et recordset for hvert niveau og tømme det samtidig men man ser om der er underpunkter som i så fald gemmes i et nyr record set.

Meget ineffektivt og bestemt ikke dynamisk

Jeg lukker spørgsmålet, jeg har lavet "rode" kode så den kan gå ned i 4. neveau, det må række - ellers vender jeg tilbage :)