Amigos, necesito de su ayuda.
Tengo este código:
<%
Dim rsTypeListing
set rsTypeListing = Server.CreateObject("ADODB.Recordset")
rsTypeListing.ActiveConnection = MM_connDUarticle_STRING
rsTypeListing.Source = "SELECT ART_ID, ART_NAME, ART_DESCRIPTION, TEMA_NOMBRE FROM ARTICLES, TEMAS WHERE ART_TEMA = TEMA_ID ORDER BY ART_DATED DESC"
rsTypeListing.CursorType = 0
rsTypeListing.CursorLocation = 2
rsTypeListing.LockType = 3
rsTypeListing.Open()
%>
<% If Not rsTypeListing.EOF Or Not rsTypeListing.BOF Then%>
<div id="Div1" class="menuj">
<ul id="Ul1" class="jdropdown dropdown-horizontal">
<li><span class="dir"><%=AjustarTexto(rsTypeListing.Fields.I tem("TEMA_NOMBRE").Value)%></span><ul>
<% While ((rsTypeListing.EOF => 0) AND (NOT rsTypeListing.EOF))%>
<li><a title="<%=AjustarTexto(rsTypeListing.Fields.Item(" ART_NAME").Value)%>" href="<%=getsetting(91,"url")%><%=getsetting(143," url")%><%=(rsTypeListing.Fields.Item("ART_ID").Val ue)%>"><%=AjustarTexto(rsTypeListing.Fields.Item(" ART_NAME").Value)%></a></li>
<% rsTypeListing.MoveNext()
Wend%></ul></li>
</ul>
Esto me produce una lista así:
* Tema1
*subtema1.1
*subtema1.2
Pero quiero que me muestre todos los temas y subtemas dependientes:
* Tema1
*subtema1.1
*subtema1.2
* Tema2
*subtema21
*subtema2.2
* Tema3
*subtema31
*subtema3.2
Así sucesivamente.
A la espera de vuestra ayuda.