- Menu1
- Sub-menu1
- Sub-menu1
- Sub-menu1
- Sub-menu1
- Menu2
- Sub-menu2
- Sub-menu2
- Sub-menu2
- Sub-menu2
-Menu3
- Sub-menu3
- Sub-menu3
- Sub-menu3
- Sub-menu3
- Sub-menu3
-MenuN
- Sub-menuN
- Sub-menuN
- Sub-menuN
- Sub-menuN
É praticamente igual ao menu da esquerda do site submarino.com.br
A estrutura do meu banco de dados (Access2000) está da seguinte forma:
Tabela Categorias com relacionamento de integridade referencial com a Tabela Produtos.
Tabela SubCategorias com relacionamento de integridade referencial com a Tabela Produtos.
As tabelas Categorias e SubCategorias possuem a Chave Primária.
Eu tentei fazer assim:
<%
Sql = "SELECT * FROM tbCategorias, tbSubCategorias WHERE tbCategorias.cod_categoria = tbSubCategorias.cod_categoria ORDER BY nomecategoria ASC"
Set rs = cn.Execute(Sql)
%>
<table width="250" border="0" cellspacing="0" cellpadding="0">
<%Do While Not rs.eof%>
<tr>
<td> <%=rs.Fields("nomecategoria")%></td>
</tr>
<%do while not rs.eof%>
<tr>
<td> <%=rs.fields("nomesubcategoria")%></td>
</tr>
<%rs.movenext%>
<%rs.movenext%>
<%loop%>
<%loop%>
</table>
Só que está listando o nome da categoria com codigo 1 e junto as subcategorias com codigo 1 e 2 saltando um registro de cada linha.
Segue em anexo uma cópia do banco de dados para referencia