Simpel menu

Det er ikke til at sige uden mere kode. Ja, du kan gøre det med Session, men du kunne også skrive det om, så hovedmenupunkts id og undermenupunkts id lå 2 forskellige steder og derved ikke overskrev hinanden.

sessions vil mere eller mindre være formålsløst - kommer en besøgende fx fra et link i en mail eller via en søgemaskine ville resultatet ikke blive som forventet fra din side.

Ja, det ville vel være bedst at sætte en variable på hver side, som fortæller, hvilken undermenu siden hører under.

Keysersoze: det havde jeg ikke tænkt på, god pointe.

Det lader til jeg må lave det med variabel der peger på hovedsiden.

En recursiv funktion kunne være en ide, hvis du har flere niveauer end 2.
Ellers kan du lave et simpelt tjek.

Dette er fast kode til kun 2 niveauer (ikke testet):

'Typecast ID'et så du undgår sql injections
sMenuLevel = cLng(Request.querystring("id"))

'Hent alle top menuer
set RS = conn.execute("SELECT * from internetGroup where ParentGroup is null")
while not RS.eof
  response.write RS("title") &"<br>"
  if isCurrentOrChildMenuSelected(RS("ID")) then
    set sRS = conn.execute("SELECT * from internetGroup where ParentGroup="& RS("ID"))
    while not sRS.eof
      response.write "&nbsp;&nbsp;" RS("title") &"<br>"
      sRS.MoveNext
    wend
  end if
  RS.MoveNext
wend

function isCurrentOrChildMenuSelected(fID)
dim fRS
  if sMenuLevel = fID then
    isCurrentOrChildMenuSelected = true
  else
    set fRS = conn.execute("SELECT * from internetGroup where ParentGroup='"& fID &"' and ID="& sMenuLevel)
    if fRS.eof then
      isCurrentOrChildMenuSelected = false
    else
      isCurrentOrChildMenuSelected = true
    end if
  end if
end function

Fennec: Jeg kan ikke få det til at virke, kan ikke se hvor sMenuLevel får nogen værdi fra?

Det får det jo fra Querystringen "id".

w13, fennec, keyseroze: tak for jeres input jeg vil dele point mellem jer.

Jeg endte med at tage fennecs løsning, og den virker med nedenstående.

<%
    ' Shared functions
   
    ' Show WebShopMenu
    function shopMenu()
    'Typecast ID'et så du undgår sql injections
   
    call openDB(conn)
    'Hent alle top menuer
    set RS = conn.execute("SELECT * from internetGroup where ParentGroup=''")
    while not RS.eof
    response.Write "<div class=""menubutton"">"
    response.write "<a href=""/shop/showGroups.asp?GroupName=" & RS("name") & """ class=""menu"">" & RS("name") &"</a><br>"
    response.Write "</div>"
      if isCurrentOrChildMenuSelected(RS("name")) then
          set sRS = conn.execute("SELECT * from internetGroup where ParentGroup='"& RS("name") & "'")
        while not sRS.eof
          response.Write "<div class=""menubutton"">"
          response.write "- <a href=""/shop/showGroups.asp?GroupName=" & sRS("name") & """ class=""menu"">" & sRS("name") &"</a><br>"
          response.Write "</div>"
          sRS.MoveNext
        wend
      end if
      RS.MoveNext
    wend

    end function
   
    function isCurrentOrChildMenuSelected(fID)
        sMenuLevel = Request.querystring("groupName")
        call openDB(conn)
        dim fRS
          if sMenuLevel = fID then
            isCurrentOrChildMenuSelected = true
          else
            'response.Write("SELECT * from internetGroup where ParentGroup='"& fID &"' and name='"& sMenuLevel & "'")
            set fRS = conn.execute("SELECT * from internetGroup where ParentGroup='"& fId &"' and name='"& sMenuLevel & "'")
            if fRS.eof then
              isCurrentOrChildMenuSelected = false
            else
              isCurrentOrChildMenuSelected = true
            end if
          end if
    end function
%>

:)

et lille svar :)

fennec: Mangler svar fra dig.

Det får du her. Er lige kommet hjem fra ferie.

.o) <-- One Eyed Jack