Criei um menu conforme o codigo abaixo, mais estou precisando que ele imprima assim na tela:
categoria01
subcat01
subcat02
categoria02
subcat01
categoria03
subcat01
subcat02
etc.... ok???
Ou seja... ele terá que imprimir somente uma vez o nome da Categoria e as Subcategorias referentes àquela Categoria, abaixo... e assim por diante...
O caso é que nao está acontecendo isso... ele imprimi toda vez o nome da Categoria e uma sub abaixo...
<%
set rs= Server.CreateObject("ADODB.RecordSet")
set my_conn= Server.CreateObject("ADODB.Connection")
my_Conn.Open ConnString
Sql = "Select cat.codcategoria, cat.catdescricao, "
Sql = Sql & "subcat.codsubcategoria, subcat.refcodcategoria, subcat.subcatdescricao "
Sql = Sql & "From categoria cat, subcategoria subcat "
Sql = Sql & "Where cat.codcategoria = subcat.refcodcategoria Order By cat.catdescricao and subcat.subcatdescricao ASC"
rs.Open Sql, my_conn, 2, 3
If rs.EOF or rs.BOF then
Response.Write "Vazio"
Else
%>
<%=rs("CatDescricao")%>
<%=rs("SubCatDescricao")%>
<%=rs("CatDescricao")%>