Ver Mensaje Individual
  #3 (permalink)  
Antiguo 08/06/2007, 01:37
Avatar de Laika
Laika
 
Fecha de Ingreso: octubre-2001
Mensajes: 1.376
Antigüedad: 23 años, 6 meses
Puntos: 0
Re: Ordenar datos al mostrar en pantalla

No puedo hacer eso. Os dejo el codigo que uso. Necesitari aordenar por los reusltados del 2º bucle que usa el otro recordset.

LIBROS
id_libro
nombre_libro
descripcion_libro

ARTICULOS
id_articulo
id_libro
texto_articulo

Código:
Set Conn = Server.Createobject("ADODB.Connection")
conn.open "bd"

sql="SELECT id_libro,nombre_libro FROM libros WHERE nombre_libro <>'' order by nombre_libro"
set rs = Conn.Execute(sql)

<table width="677" border="1" align="center" cellpadding="0" cellspacing="0">
  <tr>
    <td width="117"><div align="center" class="Estilo2">Id_Libro</div></td>
    <td width="380"><div align="center" class="Estilo2">Nombre Libro </div></td>
    <td width="172"><div align="center" class="Estilo2">N&uacute;mero de Articulos</div></td>
  </tr>
  <%
  DO WHILE NOT RS.EOF
	
	contador=0	
	sql2="SELECT id_libro FROM articulos where id_libro=" & rs("id_libro")
	set rs2 = Conn.Execute(sql2)
	
	do while not rs2. eof
		contador=contador + 1
		rs2.movenext
	Loop
		rs2.close	
	
	%>
  <tr>
    <td><div align="center"><%=rs("id_libro")%></div></td>
    <td><div align="center"><%=rs("nombre_libro")%></div></td>
    <td><div align="center"><%=contador%></div></td>
	<%
	 rs.movenext
	 
	Loop %>
  </tr>
</table>
</body>
</html>

<%
rs.close
conn.close