Menu og undermenu....men undermenu forsvinder!

Jeg har lavet følgende menu - som fungerer fint! Via mit admin modul kan jeg vælge om der skal være en undermenu til hvert enkelt menupunkt - problemet opstår når man klikker på undermenupunktet - så kan jeg ikke få den til at holde fast i undermenuen - se evt. her

http://www.aabenraagolf.dk/main.asp?id=hvorfor

Koden til min menu ser således ud:

      <!------- MENU -------->
      <%
                      set rs=server.CreateObject("ADODB.Recordset")
                      rs.open "SELECT * FROM mainmenu where aktiv='Y' order by raekkefoelge ASC ",conn
                      %>
      <%
                      f = 0
                      farve = "#6d87a0"

                      do while not rs.eof %>
    </td>
  </tr>
  <tr>
    <td onmouseover="co(this,'in');" onmouseout="co(this,'out');" height="20">&nbsp;&nbsp;
      <% if rs("ELx") = "Y" Then %>
      <A HREF="http://<%=rs("EL")%>" target="_blank"><%=rs("menu")%></A>
      <% else if rs("MAILx") = "Y" Then %>
      <A HREF="mailto:<%=rs("MAIL")%>"><%=rs("menu")%></A>
      <% else if rs("MENUx") = "Y" Then %>
      <A HREF="main.asp?id=<%=rs("MENUPUNKT2")%>">
      <% =rs("menu") %>
      </A>
      <% end if
      end if
      end if %>
      <br> </td>
  </tr>
  <tr>
    <td height="1" bgcolor="#66CC33"></td>
  </tr>
  <%
               
                      rs.movenext
                      loop  %>


Koden til min undermenu ser således ud:

      <!------- SUBMENU -------->
      <%
SQL = "SELECT * FROM submenu WHERE id2= '" & request.querystring("id") & "' order by submenu ASC"
Set rs  = Conn.execute(SQL)
%> <%
                      f = 0
                      farve = "#6d87a0"

                      do while not rs.eof %> </td>
  </tr>
  <tr>
    <td height="15">&nbsp;&nbsp;
      <% if rs("ELx1") = "Y" Then %>
      <font color="336633"><A HREF="http://<%=rs("EL1")%>" target="_blank">&#8226;&nbsp;&nbsp;
      <%=rs("submenu")%></A></font>
      <% else if rs("MAILx1") = "Y" Then %>
      <font color="336633"><A HREF="mailto:<%=rs("MAIL1")%>">&#8226;&nbsp;&nbsp;
      <%=rs("submenu")%></A></font>
      <% else if rs("MENUx1") = "Y" Then %>
      <font color="336633"><A HREF="main2.asp?id=<%=rs("MENUPUNKT3")%>">&#8226;&nbsp;&nbsp;
      <% =rs("submenu") %></A></font> 
      <% end if
      end if
      end if %>
    <br> </td>
  </tr>
  <%
               
                      rs.movenext
                      loop  %>