Fold ud menu

Jeg skal bruge en fold ud menu, men kan ikke få det til at fungere - derfor er der 200 point til den der kan løse mit problem:

Min kode ser på nuværende tidspunkt således ud:

<%
menu = Request.QueryString("menu")
page = Request.QueryString("Page")

If Request.QueryString("menu") <> "" then
CALL opentbl("SELECT COUNT(menu_id) AS Antal FROM Submenu WHERE menu_id="&Menu&"", rss)%>

<script type="text/javascript" language=javascript>
  var menu_item = <%=rss("Antal")%>
  var dom = (document.getElementById)?true:false;
  function fold_menu(active){
    for (i=1; i < menu_item+1; i++){
        st = (dom)?document.getElementById("sub"+i).style:document.all["sub"+i].style;
        st.display=(i==active)?'block':"none";
    }
  }
</script>

<%CALL opentbl("select * from Submenu WHERE menu_id="&Menu&" ORDER BY rating, Submenu_name", submenu)
Submenu_id = submenu("submenu_id")
%>
   
<%do while not submenu.eof%>

                                       
    <img src="../Images/Grafik/pil.gif"><a href="information.asp?Page=<%=submenu("page_id")%>&menu=<%=submenu("menu_id")%>" class="menu"><%=submenu("submenu_name")%></a>

<!-- Submenuen vises -->   
    <%CALL opentbl("select * from Page WHERE submenu_id="&Submenu_id&" ORDER BY rating, page_name", pagemenu)%>
    <%do while not pagemenu.eof%>
    <a href="information.asp?Page=<%=pagemenu("page_id")%>&menu=<%=pagemenu("menu_id")%>" class="menu"><%=pagemenu("page_header")%></a>
    <%pagemenu.movenext
        loop
    call closetbl(pagemenu)%>
<!-- Submenuen vises -->       
   
    <img src="../Images/Grafik/menu_streg.gif"><br>
                                       
                                <%submenu.movenext
                                loop
                                call closetbl(submenu)
                               
                                end if%>

Det er det her der skal udgøre submenuen:

<!-- Submenuen vises -->   
    <%CALL opentbl("select * from Page WHERE submenu_id="&Submenu_id&" ORDER BY rating, page_name", pagemenu)%>
    <%do while not pagemenu.eof%>
    <a href="information.asp?Page=<%=pagemenu("page_id")%>&menu=<%=pagemenu("menu_id")%>" class="menu"><%=pagemenu("page_header")%></a>
    <%pagemenu.movenext
        loop
    call closetbl(pagemenu)%>
<!-- Submenuen vises -->

For en god ordens skyld så er det jeg søger en menu hvor jeg klikker også bliver submenuen vist.

Håber der er nogen der kan hjælpe...