Arbol en foro ASP

[eduvivi]

Hola, tengo un foro que funciona perfectamente, pero quiero hacer lo siguiente cuando me muestre el mensaje principal que tambien me muestre en forma de arbol los titulos de las respuetas a este mensaje principal.
Por ejemplo
MENSAJE PRINCIPAL
-- RE. MENSAJE PRINCIPAL
-- RE. RE. MENSAJE PRINCIPAL

y asi sucesivamente.

este es mi SQL
sql = "SELECT * FROM discusion WHERE IdCabeza=0 ORDER BY Fecha DESC"

y aqui es donde hago la consulta al IdCabeza que van a tener el valor 0
* la variable mostar es la de valor x para el paginado


<%do while not rs.EOF and cant_registros < mostrar

fecha = RS("Fecha")%>
<TR bgcolor="#FFCCFF">
<TD width="73%"><font face="Verdana, Arial, Helvetica, sans-serif" size="1"><IMG SRC="../images/asunto.gif" width="16" height="14">

<!-- 'aca es donde trato de poner la busqueda de msgs y me sale cualquier cosa-->

<A HREF="vermensaje.asp?idmensaje=<%=RS(&quot ;IdMensaje")%>"><B><%=(RS .Fields("Titulo"))%></B></A></font></TD>
<% Response.Write "<TD ALIGN=center> <FONT SIZE=1>"&RS("Respuestas")&am p;" </TD><TD ALIGN=center><FONT SIZE=1>" &Day(fecha)&"/"&Month(fecha)&"/"&Year(fecha)&"</FONT><BR></TD></TR>"
cant_registros = cant_registros +1

RS.MoveNext
Loop
end if
%>

Saben donde hay algun ejemplo que tenga algun parecido con esto que quiero hacer?
Muchas gracias

[eduvivi]

Por favor alguien sabe esto, lo que quiero hacer es un arbol como el que aparece en este foro
Mensaje principal
---Re. Mensaje 1
----Re. Mensaje 2

Por favor ayuda

[Mecenias]

Eso se hace en javascript,mira en aquel foro a lo mejor alguno te ayuda, yo he visto este

a]http://www.treeview.net/ o tambien este otro <a href='ir.asp?http://www.d-zineworx.co.uk/resources/myscripts/' target='_blank'>http://www.d-zineworx.co.uk/resources/my...</a> o este <a href='ir.asp?http://www.emenutree.com/' target='_blank'>http://www.emenutree.com/...</a>

Espero que te sirvan.

Un saludo

[eduvivi]

Sigo tratando de hacer este preciado arbol
y me salta este error

Microsoft VBScript compilation error '800a0401'

Expected end of statement

/foro3/Foro.asp, line 85

sql = &quot;SELECT * FROM discusion WHERE IdCabeza = RS (&quot;IdMensaje&quot;)&quot;
-----------------------------------------------------^
Alguien sabe que es esto

[venom_plus]

Hola, pues creo que es la sintaxis, no?
sql = &quot;SELECT * FROM discusion WHERE IdCabeza = RS (&quot;IdMensaje&quot;)&quot;
Deberia ser:
sql = &quot;SELECT * FROM discusion WHERE IdCabeza = &quot; &amp; RS(&quot;IdMensaje&quot;)

[eduvivi]

Gracias venom_plus, el error no salto mas pero del arbol nada

Esto es lo que tengo:
Primero un Select

sql = &quot;SELECT * FROM discusion WHERE IdCabeza=0 ORDER BY Fecha DESC&quot;

Despues 2 bucles uno dentro del otro el primero busca todos los mensajes con valor cero del IdCabeza y dentro de este otro que pretendo que busque los que tengan relacion con el mensaje IdCabeza pero con valorees distinto de cero:


&lt;%do while not rs.EOF and cant_registros &lt; mostrar
fecha = RS(&quot;Fecha&quot;)
sql = &quot;SELECT * FROM discusion WHERE IdCabeza = &quot; &amp; RS(&quot;IdMensaje&quot;)
do while not rs.EOF
%&gt;
&lt;TR bgcolor=&quot;#FFCCFF&quot;&gt;
&lt;TD width=&quot;73%&quot;&gt;&lt;font face=&quot;Verdana, Arial, Helvetica, sans-serif&quot; size=&quot;1&quot;&gt;&lt;IMG SRC=&quot;../images/asunto.gif&quot; width=&quot;16&quot; height=&quot;14&quot;&gt;

&lt;A HREF=&quot;vermensaje.asp?idmensaje=&lt;%=RS(&quot ;IdMensaje&quot;)%&gt;&quot;&gt;&lt;B&gt;&lt;%=(RS .Fields(&quot;Titulo&quot;))%&gt;&lt;/B&gt;&lt;/A&gt;&lt;/font&gt;&lt;/TD&gt;
&lt;% Response.Write &quot;&lt;TD ALIGN=center&gt; &lt;FONT SIZE=1&gt;&quot;&amp;RS(&quot;Respuestas&quot;)&am p;&quot; &lt;/TD&gt;&lt;TD ALIGN=center&gt;&lt;FONT SIZE=1&gt;&quot; &amp;Day(fecha)&amp;&quot;/&quot;&amp;Month(fecha)&amp;&quot;/&quot;&amp;Year(fecha)&amp;&quot;&lt;/FONT&gt;&lt;BR&gt;&lt;/TD&gt;&lt;/TR&gt;&quot;
cant_registros = cant_registros +1

RS.MoveNext
Loop
Loop
%&gt;

Solo me busca los mensajes con valor cero y los otros no me los muestra, alguna idea de porque pasa esto?