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ú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