lista desordenada

[politikaperu]

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.

[JuanRAPerez]

"ORDER BY ART_DATED DESC"

eso dice tu codigo, entonces te parecen en ese orden...
tendrias que tener un campo en dodne guardes por ejemplo

1
1.1
1.2
2.
2.1
2.2
3.
3.1
2.1

[politikaperu]

JuanRAPerez gracias por tu respuesta. Aunque no me ayuda, puesto que el orden establecido es para que las dependientes se ordenen de acuerdo a ese dato.

Lo que yo requiero es que debajo del primer tema aparezcan los subtemas así sucesivamente. En mi caso tengo 5 temas y cada subtema tiene 6 subtemas. Sin embargo, sólo logro que aparezca el primer tema y sus correspondientes subtemas y NO los demás temas.

Creo que el punto está aquí:

<li><span class="dir"><%=AjustarTexto(rsTypeListing.Fields.I tem("TEMA_NOMBRE").Value)%></span><ul> //Aquí muestra el tema

<% 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").Va l ue)%>"><%=AjustarTexto(rsTypeListing.Fields.Item(" ART_NAME").Value)%></a></li>
<% rsTypeListing.MoveNext()
Wend%></ul></li> //Aquí muestra los subtemas dependientes
</ul>

Falta que vuelva a aparecer el tema y los subtemas faltantes...

[JuanRAPerez]

que bien se entiende cuando explicas lo que quieres no?

solo aparece una vez el "TEMA_NOMBRE" porque esta fuera del while, si estuviera dentro del while aparecería varias veces....


entonces
opcion 1
usas condicionantes dentro del while

• algo asi como
• crear una variable
• colocarle el contenido de TEMA_NOMBRE
• si al entrar de nuevo al while es igual, no se imprime, hasta que sea diferente
• tomar las consideraciones necesarias para tus variables de impresión

opcion 2
hacer dos recorsert

• primer recordset que imprima en rs TEMA_NOMBRE
• dentro de el while del primer recordset que imprima las que pertenezcan a TEMA_NOMBRE
• cerrar segundo recordset
• loop al 1 primer recordset

suerte

[politikaperu]

JuanRAPerez, nuevamente gracias por tu respuesta. La verdad que me es difícil expresarme en un lenguaje del cual soy sólo un aficionado.

La lógica de tus dos propuestas las entiendo, aunque no sé como hacerlo operativo. Podrías colocar ejemplos? por favor. Y de nuevo muchas gracias.