谁能帮我解决下这个问题

我想给下面这段代码 加个多层展开的菜单 如何解决 10QQ币回报
<script src="Scripts/AC_RunActiveContent.js" type="text/javascript"></script>
<TABLE align="center" cellSpacing=0 cellPadding=0 width=100% border=0>
  <TBODY>
    <TR> 
      <TD vAlign=top><table class="border_all" cellspacing="0" cellpadding="0" width="100%" 
            border="0">
        <tbody>
          <tr>
            <td class="table_bgcolor" valign="top" align="right" colspan="3" height="2"></td>
          </tr>
          <tr>
            <td class="table_bgcolor" valign="top" align="left" width="9" 
                  height="25"><script type="text/javascript">
AC_FL_RunContent( 'codebase','http://download.macromedia.com/pub/shockwave/cabs/flash/swflash.cab#version=7,0,19,0','height','25','width','9','src','mbtp/2','quality','high','pluginspage','http://www.macromedia.com/go/getflashplayer','wmode','transparent','movie','mbtp/2' ); //end AC code
</script><noscript><object 
                  codebase="http://download.macromedia.com/pub/shockwave/cabs/flash/swflash.cab#version=7,0,19,0" 
                  height="25" width="9" 
                  classid="clsid:D27CDB6E-AE6D-11cf-96B8-444553540000">
                <param name="movie" value="mbtp/2.swf" />
                <param name="quality" value="high" />
                <param name="wmode" value="transparent" />
                <embed src="mbtp/2.swf" 
                  width="9" height="25" quality="high" 
                  pluginspage="http://www.macromedia.com/go/getflashplayer" 
                  type="application/x-shockwave-flash" 
                  wmode="transparent"></embed>
            </object></noscript></td>
            <td style="FONT-FAMILY: 宋体; FONT-SIZE: 15px; LINE-HEIGHT: 18px">&nbsp;NAVI|分类导购</td>
            <td class="border_l" align="right"><a 
                  href="procat.asp" 
                  target="_blank"><img height="13" src="mbtp/more.gif" 
                  width="50" border="0" /></a>&nbsp;&nbsp;</td>
          </tr>
        </tbody>
      </table>
              <%
sort(0)
dim ii
ii=0
sub sort(selec)
  sql="select * from category where hide=0 and ParentID = "&selec&" order by categoryorder"
  set rs1=Conn.Execute(sql)
'if rs1.eof and rs1.bof then
'    rs1.close
 ' response.Write "<tr><td align=center>还没有商品分类</td></tr>"
 ' else
  do while not rs1.eof 
  if selec=0 then
  %>
      <table cellspacing=0 cellpadding=0 width="100%" border=0>
          <tbody>
   
            <tr> 
              <td valign=center height=20 colspan="3" align="center">                 <table width="199" border="0">                  <tr>
                    <td width="10"> </td>
                    <td width="220" align="left"><a href="cat.asp?catid=<% = rs1("categoryid") %>"><font color="#999999"><img height="10" src="mbtp/btn_next02.gif" width="9" align="absmiddle" border="0" />
                            <% = rs1("category") %>
                    </font></a></td>
                  </tr>
                </table>
              </td>
            </tr>
<tr><td colspan="3" background=images/bg_04.gif border=0></td></tr>
            <% 
else
%>
            <tr> 
              <td colspan="3" valign="top" width="100%"><%=string(ii,"　")%><a href=cat.asp?catid=<%=int(rs1("categoryid"))%>><%=rs1("category")%></a>
 </td>
             
            </tr>
          <%
end if
ii=ii+1
sort rs1("categoryid")
ii=ii-1
rs1.movenext
loop
rs1.close
Set rs1 = Nothing
end sub
%>
        </table>
  </TD>
    </TR>
  </TBODY>
</TABLE>