<% sql = "SELECT * FROM autores ORDER by nome" Set rs = Server.CreateObject("ADODB.Recordset") rs.Open sql, MeuDB, 3, 3 Do While not rs.eof sqlNot = "SELECT * FROM notas WHERE idAutor = " & rs("id") Set rsNot = Server.CreateObject("ADODB.Recordset") rsNot.Open sqlNot, MeuDB, 3, 3 sqlArt = "SELECT * FROM artigos WHERE idAutor = " & rs("id") Set rsArt = Server.CreateObject("ADODB.Recordset") rsArt.Open sqlArt, MeuDB, 3, 3 contaNotas = rsNot.RecordCount contaArtigos = rsArt.RecordCount response.write "

" & rs("nome") & "
" & contaNotas & " notas e " & contaArtigos & " artigos incluídos.

" ContaTodaNota = contaTodaNota + contaNotas ContaTodaArtigos = contaTodaArtigos + contaArtigos rs.movenext Loop response.write "

Total:
" & contaTodaNota & " notas e " & contaTodaArtigos & " artigos incluídos.

" response.write "

Relatório gerado dia " & date() & ", às " & time() & "

" %>