dynamiske submenuer

- først mit recordset og en repeat region

<%
Dim rs_menu
Dim rs_menu_numRows

Set rs_menu = Server.CreateObject("ADODB.Recordset")
rs_menu.ActiveConnection = MM_hoeng_con_STRING
rs_menu.Source = "SELECT * FROM tbhe_m1 ORDER BY m1_nb ASC"
rs_menu.CursorType = 0
rs_menu.CursorLocation = 2
rs_menu.LockType = 1
rs_menu.Open()

rs_menu_numRows = 0
%>
<%
Dim Repeat1__numRows
Dim Repeat1__index

Repeat1__numRows = -1
Repeat1__index = 0
rs_menu_numRows = rs_menu_numRows + Repeat1__numRows
%>


--- og så følger selve menuopbygningen----


<!--%%%%%%%%%%%% QuickMenu Stucture %%%%%%%%%%%*-->
<div id="qm0" class="qmmc">

    <a href="#">om skolen</a>
   
        <div class="m_green">
          <% While ((Repeat1__numRows <> 0) AND (NOT rs_menu.EOF))%>
         
            <%If rs_menu.Fields.Item("m1_me").Value = "1" Then %>
              <a href="#"><%=(rs_menu.Fields.Item("m1_titel").Value)%></a>
                <%If rs_menu.Fields.Item("m1_sub").Value = true Then %>
                    <div class="m_green" style="width:9em">
                    <a href="#">submenuemne1</a>                    </div>

                <%End If%>
            <%End If%>
   
            <%
  Repeat1__index=Repeat1__index+1
  Repeat1__numRows=Repeat1__numRows-1
  rs_menu.MoveNext()
Wend
%>
        </div>
   
    <a href="#">dette skoleår</a>

        <div class="m_blue">
        <a href="#">Satisfaction</a>
        <a href="#">Our Goals</a>
        <a href="#">Product Warranty</a>
           
            <div class="m_blue" style="width:9em">
            <a href="#">Asia</a>
            <a href="#">South America</a>
            <a href="#">Australia</a>
            <a href="#">North America</a>
            <a href="#">Europe</a>
            <a href="#">Africa</a>            </div>
       
        <a href="#">Future Outlook</a>
        <a href="#">Product Quality</a>
        <a href="#">Continued Support</a>        </div>


    <a href="#">kommende elever</a>
   

        <div class="m_red">
        <a href="#">Annual Meetings</a>
        <a href="#">Financial Reports</a>
        <a href="#">Nasdaq Quoting</a>
        <a href="#">Dividend Information</a>
        <a href="#">Future Outlook</a>
        <a href="#">CEO Announcements</a>        </div>

   
    <a href="#">tidligere elever</a>

        <div class="m_blue">
        <a href="#">Satisfaction</a>
        <a href="#">Our Goals</a>
        <a href="#">Product Warranty</a>
        <a href="#">Future Outlook</a>
        <a href="#">Product Quality</a>
        <a href="#">Continued Support</a>        </div>
       
    <a href="#">se mere</a>

        <div class="m_green">
        <a href="#">Satisfaction</a>
        <a href="#">Our Goals</a>
        <a href="#">Product Warranty</a>
        <a href="#">Future Outlook</a>
        <a href="#">Product Quality</a>
        <a href="#">Continued Support</a>        </div>
       
<span class="qmclear">&nbsp;</span></div>
<!--%%%%%%%%%%%% QuickMenu Create Menu (menu id, is vertical, show timer (ms), hide timer (ms), on click) %%%%%%%%%%%*-->
<script type="text/JavaScript">qm_create(0,false,0,500,false)</script>

som I kan se er opbygningen i dette menusystem rimelig gennemskuelig... Jeg har dog foreløbig kun arbejdet med at gøre den første menu dynamisk, og kan endda få den til at lave en lille pil og starte submenuen på den rigtige plads - se link

http://www.ystrom.dk/hoeng/qm.asp

lukker tråden...