Democracias ... blog
http://www.biano.com.br/democracias
um blog crítico de Bruno Muller, Fabiano Carnevale e Fabricio Pereira
Fri, 1 July 2005 20:30:11 +0000
http://biano.com.br/democracias
pt
<%
sql = "SELECT * FROM notas ORDER by dt DESC"
Set rsNotas = Server.CreateObject("ADODB.Recordset")
rsNotas.Open sql, MeuDB, 3, 3
Conta = 1
Do While not rsNotas.eof AND Conta < 5
sql = "SELECT * FROM autores WHERE id = " & rsNotas("idAutor")
Set rsAutor = Server.CreateObject("ADODB.Recordset")
rsAutor.Open sql, MeuDB, 3, 3
%>
-
-
<%= rsNotas ("titulo") %>
-
http://biano.com.br/democracias/notas.asp?id=<%= rsNotas ("id") %>
-
http://biano.com.br/democracias/comentarios.asp?idNota=<%= rsNotas ("id") %>
<%= rsNotas ("dt") %>
<%= 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
%>)
-
<%= left(rsNotas ("texto"), 500) %>
-
<%
rsNotas.movenext
Conta = Conta + 1
Loop
%>