popup menu - dynamiske submenuer

har et problem jeg har rodet temmelig længe med, måske nogen har en god idé.
Har lavet nogle gode dynamiske menuer, og det hele virker faktisk lige på nær en enkelt ting.
mine submenuer kan jeg ikke lave dynamiske.

relevante brudstykker af min kode følger herunder

mvh
Mathias


- 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----


<div id="qm0" class="qmmc">

    <a href="#">om skolen</a>
   
        <div class="m_green">
        <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>   
        </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>

       
<span class="qmclear">&nbsp;</span></div>


---------------------------
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

mit forsøg med de dynamiske:
---------------------------

<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>