Menu con SubMenus en ASP

[PabloMetal]

Saludos, amigos y felices fiestas..
bueno mi pregunta es, saben como puedo hacer para cargar un menu con sus
respectivos submenu ok tengo en mi db de sql una taba con el nombre de las categorias que vendrian a ser el menu y dentro de cada categoria una table de subcategoria con las subcatgorias, quiero que al hacer click sonre la tabla de la categoria se abra abajo automaticamente la lista subcategorias para abrir y cerrar la tabla que contiene las subcategoria estoy usando este javascript:

Código:

<script language="javascript">
function toggle(e) {
  if (e.style.display == "none") {
     e.style.display = "";
  } else {
     e.style.display = "none";
  }
  }
</script>

y lo llamo desde el body (enla tabla con)

Código:

<tr style="display: none" id=HideShow>

lo que hize fue cargar las categorias con asp de la Db pero no se comohacer para que aarre automaticamente las subcategorias de cada categoria dentro de la tabla que se abre, y se abrab las correcta subcategorias dentro de cadsa categoria alguien me da la mano?
Aqui les peguo el code de html con asp que puse saludos

Código:

<%sql="select SubCatId,CatId,SubCatName from TblSubCat where CatId = " & Request("CatId")
set rd = conn.execute(sql)%>
<table border="0" cellpadding="0" width="100%" cellspacing="0" id="table17">
								<%sql="select CatId,CatName from TblCat"
								set rs = conn.execute(sql)%>
								<%do while not rs.eof%>
								<tr onclick="toggle(HideShow<%=rs(0)%>);">
									<td onmouseover="this.style.background='#F2FBFF'" style="padding:3px; background:#DDF4FF; " onmouseout="this.style.background='#DDF4FF'" align="left">
									<p>
									<font size="1" face="Verdana" color="#0066CC">
									<b><a href="?sec=categorias&CatId=<%=rs("CatId")%>"><font size="1" face="Verdana" color="#0066CC"><%=rs("CatName")%></font></a></b>
									</font> </td>
								</tr>
								<%if %>
								<tr style="display: none" id=HideShow<%=rs(0)%>>
									<td align="left">
									<ul>
										<%do while not rd.eof%>
										<li>
										<font size="1" face="Verdana" color="#0066CC">
										<%=rd("SubCatName")%></font></li>
										<%rd.movenext
										'Loop%>
									</ul>
									</td>
								</tr>
								<%rs.movenext
								Loop%>
								</table>

algo como
menu 1
menu 2
submenu 2-b
submenu 2-c
submenu 2-d
menu 3