Modifikation af menu

Jeg har en stifinder lignende menu. Problemet er bare at jeg gerne vil have vist underpunkterne til højre med detaljer. Ligesom i stifinder.

Her er koden og et link til at se på menuen. Basen kan i selv lige downloade.

<script language="JavaScript1.2" src="FljMenu.js"></script>
<link rel="stylesheet" type="text/css" href="FljMenu.css">

<%
Function ExpandBranch(ID, Name, Destination, MenuNiveau)
  DBsti ="DRIVER={Microsoft Access Driver (*.mdb)}; DBQ="&server.mappath("db/opgaver.mdb")
  Set DB = Server.CreateObject("ADODB.Connection")
  DB.Open DBsti

  SQL = "select * from Opgaver where (Parent = " & ID & ")"
  set RS=Server.CreateObject("adodb.Recordset")
  RS.Open SQL, DB, 3
  if RS.EOF then
    WriteSingleMenuPunkt Name, Destination
  else
    WriteMenuPunktStart  Name, MenuNiveau
    Count = 1
    CountStop = RS.RecordCount
    do while not RS.EOF
      SQL = "select * from Opgaver where (Parent = " & RS("OpgaveID") & ")"
      set RS2 = DB.execute(SQL)
      if RS2.EOF then   
        if (Count = CountStop) and (MenuNiveau > 1) then
          WriteLink RS("OpgaveTekst") & "(" & rs("opgaveid") & ")", "opgaver.asp?mode=vis&id=" & rs("opgaveid"), MenuNiveau, False
        else
          WriteLink RS("OpgaveTekst") & "(" & rs("opgaveid") & ")", "opgaver.asp?mode=vis&id=" & rs("opgaveid"), MenuNiveau, True
        end if
      else
        ExpandBranch RS("OpgaveID"), RS("OpgaveTekst") & "(" & rs("opgaveid") & ")", "opgaver.asp?mode=vis&id=" & rs("opgaveid"), MenuNiveau+1
      end if
      RS.movenext
      Count = Count + 1
    loop
    WriteMenuPunktSlut
  end if

  DB.close
End Function

Function MenuStart
  DBsti ="DRIVER={Microsoft Access Driver (*.mdb)}; DBQ="&server.mappath("db/Opgaver.mdb")
  Set DB = Server.CreateObject("ADODB.Connection")
  DB.Open DBsti
   
  SQL = "select * from Opgaver where Parent = 0"
  set RS = DB.execute(SQL)
  WriteMenuStart
  do while not RS.EOF
    ExpandBranch RS("OpgaveID"), RS("OpgaveTekst") & "(" & rs("opgaveid") & ")", "opgaver.asp?mode=vis&id=" & rs("opgaveid"), 1
    RS.movenext
  loop
  DB.close
  WriteMenuEnd
End function

Function WriteMenuStart
  Response.write("<table border=0 cellpadding=0 cellspacing=0 height='100%'><tr><td width=10><img src=blank.gif width=7 height=1></td><td valign=top width=160><br>")
End Function

Function WriteMenuEnd
  Response.write("<script language=JavaScript1.2>FljMenu.BeforeLoad();</script></td><td width=10><img src=blank.gif width=7 height=1></td><td width=1 bgcolor=#808080><img src=blank.gif width=1 height=1></td><td width=10><img src=blank.gif width=7 height=1></td><td valign=top width=650>")
End Function

Function WriteMenuPunktStart(PktStr, AntalBlanke)
  Response.write("<span id=FljMenuMenu class=FljMenuMenu>")
  Response.write("<img id=FljMenuPageTab src=blank.gif width=9 height=17 border=0>")
  if AntalBlanke = 2 then
    Response.write("<img src=hline.gif width=37 height=5>")
  else
    if AntalBlanke > 1 then
      Response.write("<img src=hline.gif width=37 height=5>")
      for i = 2 to AntalBlanke
        Response.write("<img id=FljMenuPageTab src=blank.gif width=10 height=17 border=0>")
      next
    end if
  end if

  if AntalBlanke > 1 then
Response.write("<img id=FljMenuMenuBox src=squareblank.gif width=37 height=17><nobr>" & PktStr & "</nobr><br><span id=FljMenuMenuBody class=FljMenuMenuBody><table border=0 bgcolor=""#DFE4E8"" style='border-left: 0px solid white' cellpadding=0 cellspacing=0 background=vline.gif><tr><td>")
  else
Response.write("<img id=FljMenuMenuBox src=squareblank.gif width=37 height=17><nobr>" & PktStr & "</nobr><br><span id=FljMenuMenuBody class=FljMenuMenuBody><table border=0 cellpadding=0 cellspacing=0 background=vline.gif><tr><td>")
  end if
End Function

Function WriteLink(NameStr, UrlStr, AntalBlanke, WriteBreak)
  Response.write("<nobr>")
  Response.write("<img id=FljMenuPageTab src=blank.gif width=9 height=17 border=0>")
  if AntalBlanke => 2 then
    Response.write("<img id=FljMenuPageTab src=blank.gif width=6 height=17 border=0>")
    Response.write("<img src=hline2.gif width=37 height=5>")
    for i = 3 to AntalBlanke
      Response.write("<img id=FljMenuPageTab src=blank.gif width=9 height=17 border=0>")
    next
  end if
  if AntalBlanke > 1 then
    if AntalBlanke > 2 then
      Response.write("<img id=FljMenuPageTab src=blank.gif width=37 height=17 border=0>")
    else
      Response.write("<img id=FljMenuPageTab src=blank.gif width=12 height=17 border=0>")
    end if
  else
    Response.write("<img src=hline.gif width=37 height=5>")
  end if
  Response.write("<a id=FljMenuItem href=" & UrlStr & ">" & NameStr & "</a></nobr>")
  if WriteBreak then Response.write("<br>")
End Function

Function WriteMenuPunktSlut
  Response.write("</td></tr></table><span class=FljMenuVLineTailCover><img src=menupixel.gif height=6 width=1 border=0></span><br></span></span>")
End Function


Function WriteSingleMenuPunkt(NameStr, UrlStr)
  Response.write("<span id=FljMenuMenu class=FljMenuMenu><img id=FljMenuPageTab src=blank.gif width=9 height=17 border=0><img id=FljMenuMenuBox src=squareblank.gif width=37 height=17><a id=FljMenuItem href=" & UrlStr & ">" & NameStr & "</a></nobr><br></span>")
End Function
%>