http://www.biano.com.br/democracias http://www.biano.com.br/democracias/dblog.jpg http://biano.com.br/democracias Blog crítico ... por Bruno Muller, Fabiano Carnevale e Fabricio Pereira pt-br <% Response.ContentType = "text/xml" Set MeuDB = Server.CreateObject ("ADODB.Connection") ConnString = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" MeuDB.Open ConnString & "e:\home\biano\dados\outrasdemo.mdb" sql = "SELECT * FROM notas ORDER by id DESC" Set rsNotas = Server.CreateObject("ADODB.Recordset") rsNotas.Open sql, MeuDB, 3, 3 Conta = 1 Do While not rsNotas.eof AND Conta < 9 sql = "SELECT * FROM autores WHERE id = " & rsNotas("idAutor") Set rsAutor = Server.CreateObject("ADODB.Recordset") rsAutor.Open sql, MeuDB, 3, 3 %> - - http://biano.com.br/democracias/notas.asp?id=<%= rsNotas ("id") %> <%= FormatDateTime(rsNotas ("dt"),1) %> <%= rsAutor ("nome") %> <% mtzCat = SPLIT(rsNotas("idCategorias"), ",") MaxConta = Ubound(mtzCat) For i=0 to MaxConta sql = "SELECT * FROM categorias WHERE id = " & mtzCat(i) Set rsCat = Server.CreateObject("ADODB.Recordset") rsCat.Open sql, MeuDB, 3, 3 %> <%= lcase(rsCat("nome")) %> <% Next %> - <%= rsNotas("titulo") %> - http://biano.com.br/democracias/notas.asp?id=<%= rsNotas ("id") %> - - <% rsNotas.movenext Conta = Conta + 1 Loop Set MeuDB = nothing %>