Menu com Submenus

<!--#include file="../includes/config.asp"--><table width="165" border="0" cellspacing="0" cellpadding="0"><%ComandoSQL = "select * from menu where CodPai is null order by Titulo" Set RS = Server.CreateObject("ADODB.Recordset")RS.Open ComandoSQL,Conn, 1, 2While Not RS.EOF %> <tr> <td><img src="../img/menu1.jpg" width="165" height="31"></td> </tr> <tr> <td>	<table width="165" border="0" cellspacing="0" cellpadding="0"><%Set RS_titulo = Server.CreateObject("ADODB.Recordset")sqlmenu = "select * from menu where CodPai = "&RS("Codigo")&""RS_titulo.Open sqlmenu,Conn, 1, 2While not RS_titulo.EOF%> <tr> <td height="22" class="fundoMenu2">   <a href="interna.asp" class="linkBranco"><%=rs_titulo("titulo")%> </a></td> </tr><%RS_titulo.MoveNextwend%> </table></td> </tr><%rs.movenextwendrs.CloseSet rs = Nothing%> <tr> <td><img src="../img/menu.jpg" width="165" height="31"></td> </tr></table>------------------ INFORMAÇÕES ---------------------------------------O menu é mencionado com o codigo acima , é composto com os seguintes itens:--------------------------Contato-------------------------Corpo Docente------------------------Cursos-----------------------Empresa Junior----------------------Institucional---------------------Ouvidoria----------------------Secretaria Acadêmica-----------------------Vestibular------------------------Bom , este é o MENU , as categoras e cada categoria dessa , tem SUBMENUS ( no banco de dados , tenho TITULO e CODIGOPAIele tem que ficar assim:--------------------------- + Centro Acadêmico |-Histórico |--Infra - Estrutura |--Parcerias |--Horários--------------------------+ Fatec Rio Preto |--Organograma |--Regimento |--Semanatec |--Centro Paula Souza--------------------------+ Semanatec |--Semantec 2006 |--Semanatec 2005--------------------------+ Manuais |----------------------------Alguém poderia me ajudar,desde já eu agradeço a ajuda