MENU com conexão com banco

[Nelson Cruz]

Pessoal, eu uso essa estrutura de menu que funciona muito bem.

porem depois de tanto tempo usando esse tipo de menu em minha empresa surgiu a necessidade de ter um submenu, alguém teria uma dica para mim??

<%

Dim varSQLMenu3
Dim rsLMenu3
Dim varSQLMenu4
Dim rsLMenu4
Dim varSQLMenu5
Dim rsLMenu5


ConectarBancoINFO

varSQLMenu3="SELECT * FROM tbMenu where cod=3 ORDER BY Ordem"
Set rsLMenu3 = Server.CreateObject("ADODB.Recordset")
rsLMenu3.open varSQLMenu3,varConINFO,0,3
If NOT rsLMenu3.EOF OR NOT rsLMenu3.BOF Then

varSQLMenu4="SELECT * FROM tbMenu where cod=4 ORDER BY Ordem"
Set rsLMenu4 = Server.CreateObject("ADODB.Recordset")
rsLMenu4.open varSQLMenu4,varConINFO,0,3
If NOT rsLMenu4.EOF OR NOT rsLMenu4.BOF Then

varSQLMenu5="SELECT * FROM tbMenu where cod=5 ORDER BY Ordem"
Set rsLMenu5 = Server.CreateObject("ADODB.Recordset")
rsLMenu5.open varSQLMenu5,varConINFO,0,3
If NOT rsLMenu5.EOF OR NOT rsLMenu5.BOF Then
%>

<table border="0" cellpadding="0" cellspacing="0">
<tr>
        <td bgcolor="#C96E02"><img src="imagensMenu/Blank.GIF" width="1" height="23"border="0"></td>
        <td bgcolor="#C96E02"><a href=""><img src="ImagensMenu/btnInicio.gif" width="96" height="23" border="0"></a></td>
        <td bgcolor="#C96E02"><img src="ImagensMenu/btnMenuLaranja_DivBotoes.GIF" width="1" height="23"></td>
        <td bgcolor="#C96E02"><a href=""><img src="ImagensMenu/btnVendas.gif" width="96" height="23" border="0"></a></td>
        <td bgcolor="#C96E02"><img src="ImagensMenu/btnMenuLaranja_DivBotoes.GIF" width="1" height="23"></td>
       <td background="ImagensMenu/btnAtendimento.gif" bgcolor="#C96E02" onMouseOver="layer_menu_01.style.display=''" onMouseOut="layer_menu_01.style.display='none'" width="96" height="23"> 
          <div id="layer_menu_01" style="position:absolute; top:125px; z-index:3; display: none" onMouseOut="this.style.display='none'"> 
            <table width="100" border="0" cellpadding="0" cellspacing="0" bordercolor="#E1EAFF" bgcolor="#0066CC">
<%
    Do While NOT rsLMenu3.EOF
%>
                <tr> 
                    <td bgcolor="#012A86" valign="middle"><p align="center"><img src="ImagensMenu/Seta_Submenu.GIF" height="21" width="16"></p></td> 
                       <td valign="middle" bgcolor="#012A86"><span style=cursor:hand onClick=window.open('<%=rsLMenu3.Fields.Item("LinkMenu").value%>','_self')><font color="#dae3f6" size="1" face="Verdana, Arial, Helvetica, sans-serif"><strong><%=rsLMenu3.Fields.Item("LabelMenu").value%></strong></font></span></td>
                 </tr>
    <tr> 
        <td bgcolor="#0066CC"><img src="ImagensMenu/Blank.gif" height="1" width="20"></td> 
        <td bgcolor="#0066CC"><img src="ImagensMenu/Blank.gif" height="1" width="300"></td> 
    </tr>
<%
        rsLMenu3.MoveNext
    Loop
%>
             </table>
            </div></td>
        <td bgcolor="#C96E02"><img src="ImagensMenu/btnMenuLaranja_DivBotoes.GIF" width="1" height="23"></td>
       <td background="ImagensMenu/btnQualidade.gif" bgcolor="#C96E02" onMouseOver="layer_menu_02.style.display=''" onMouseOut="layer_menu_02.style.display='none'" width="96" height="23"> 
          <div id="layer_menu_02" style="position:absolute; top:125px; z-index:3; display: none" onMouseOut="this.style.display='none'"> 
        <table width="100" border="0" cellpadding="0" cellspacing="0" bordercolor="#E1EAFF" bgcolor="#0066CC">
<%
    Do While NOT rsLMenu4.EOF
%>
        <tr> 
            <td bgcolor="#012A86" valign="middle"><p align="center"><img src="ImagensMenu/Seta_Submenu.GIF" height="21" width="16"></p></td> 
                       <td valign="middle" bgcolor="#012A86"><span style=cursor:hand onClick=window.open('<%=rsLMenu4.Fields.Item("LinkMenu").value%>','_self')><font color="#dae3f6" size="1" face="Verdana, Arial, Helvetica, sans-serif"><strong><%=rsLMenu4.Fields.Item("LabelMenu").value%></strong></font></span></td>
                 </tr>
        <tr> 
            <td bgcolor="#0066CC"><img src="ImagensMenu/Blank.gif" height="1" width="20"></td> 
            <td bgcolor="#0066CC"><img src="ImagensMenu/Blank.gif" height="1" width="300"></td> 
                </tr>
<%
        rsLMenu4.MoveNext
    Loop
%>
             </table>
            </div></td>
        <td bgcolor="#C96E02"><img src="ImagensMenu/btnMenuLaranja_DivBotoes.GIF" width="1" height="23"></td>
       <td background="ImagensMenu/btnRH.gif" bgcolor="#C96E02" onMouseOver="layer_menu_03.style.display=''" onMouseOut="layer_menu_03.style.display='none'" width="96" height="23"> 
          <div id="layer_menu_03" style="position:absolute; top:125px; z-index:3; display: none" onMouseOut="this.style.display='none'"> 
            <table width="100" border="0" cellpadding="0" cellspacing="0" bordercolor="#E1EAFF" bgcolor="#0066CC">
<%
    Do While NOT rsLMenu5.EOF
%>
                <tr> 
                    <td bgcolor="#012A86" valign="middle"><p align="center"><img src="ImagensMenu/Seta_Submenu.GIF" height="21" width="16"></p></td> 
                       <td valign="middle" bgcolor="#012A86"><span style=cursor:hand onClick=window.open('<%=rsLMenu5.Fields.Item("LinkMenu").value%>','_self')><font color="#dae3f6" size="1" face="Verdana, Arial, Helvetica, sans-serif"><strong><%=rsLMenu5.Fields.Item("LabelMenu").value%></strong></font></span></td>
                 </tr>
        <tr> 
        <td bgcolor="#0066CC"><img src="ImagensMenu/Blank.gif" height="1" width="20"></td> 
                    <td bgcolor="#0066CC"><img src="ImagensMenu/Blank.gif" height="1" width="300"></td> 
                </tr>
<%
        rsLMenu5.MoveNext
    Loop
%>
             </table>
            </div></td>
        <td bgcolor="#C96E02"><img src="ImagensMenu/btnMenuLaranja_DivBotoes.GIF" width="1" height="23"></td>
        <td bgcolor="#C96E02"><a href=""><img src="ImagensMenu/btnAcesso-rapido.gif" width="96" height="23" border="0"></a></td>
        <td bgcolor="#C96E02"><img src="ImagensMenu/btnMenuLaranja_DivBotoes.GIF" width="1" height="23"></td>
        <td bgcolor="#C96E02"><a href=""><img src="ImagensMenu/btnBoletim.gif" width="96" height="23" border="0"></a></td>
        <td bgcolor="#C96E02"><img src="ImagensMenu/btnMenuLaranja_DivBotoes.GIF" width="1" height="23"></td>
        <td bgcolor="#C96E02"><a href=""><img src="ImagensMenu/btnAniversariantes.gif" width="96" height="23" border="0"></a></td>
        
</tr>
</table>
<% 
End If
rsLMenu3.Close
Set rsLMenu3=Nothing

End If
rsLMenu4.Close
Set rsLMenu4=Nothing

End If
rsLMenu5.Close
Set rsLMenu5=Nothing

DesconectarBancoINFO
%>