<% sql = "SELECT * FROM notas ORDER by id DESC" Set rsNotas = Server.CreateObject("ADODB.Recordset") rsNotas.Open sql, MeuDB, 3, 3 sql = "SELECT * FROM links ORDER by id DESC" Set rsLinks = Server.CreateObject("ADODB.Recordset") rsLinks.Open sql, MeuDB, 3, 3 %> <% ' Server.Execute("metatraffic/track.asp") %>

<% ContaTexto = 0 numLimite = 5000 Do While not rsNotas.eof AND contaTexto < 10 sql = "SELECT * FROM autores WHERE id = " & rsNotas("idAutor") Set rsAutor = Server.CreateObject("ADODB.Recordset") rsAutor.Open sql, MeuDB, 3, 3 %>
<% 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 if i > 0 then %>, <% end if %>" rel="tag"><%= rsCat("nome") %><% Next %>)

"><%= rsNotas("titulo") %>
por "><%= rsAutor("nome") %>, em <%= rsNotas("dt") %>

<%= left(trataStringHtm(rsNotas("texto")), numLimite) %> <% if len(rsNotas("texto")) > numLimite then %> >> ">continue lendo... <% end if if rsNotas("artRelac") <> 0 then sql = "SELECT * FROM artigos WHERE id = " & rsNotas("artRelac") Set rsArt = Server.CreateObject("ADODB.Recordset") rsArt.Open sql, MeuDB, 3, 3 %>


Leia: "><%= rsArt("titulo") %>
<% end if sql = "SELECT * FROM comentarios WHERE idNota = " & rsNotas("id") Set rsCom = Server.CreateObject("ADODB.Recordset") rsCom.Open sql, MeuDB, 3, 3 numComentarios = rsCom.RecordCount %>

comenta
#comenta" class="link">Comentários (<%= numComentarios %>)


<% rsNotas.movenext ContaTexto = ContaTexto + 1 numLimite = 5000 Loop %>

<% sql = "SELECT * FROM artigos ORDER by dt DESC" Set rsArt = Server.CreateObject("ADODB.Recordset") rsArt.Open sql, MeuDB, 3, 3 contaTexto = 1 Do While not rsArt.eof AND contaTexto < 6 sql = "SELECT * FROM autores WHERE id = " & rsArt("idAutor") Set rsAutor = Server.CreateObject("ADODB.Recordset") rsAutor.Open sql, MeuDB, 3, 3 %> <%= rsArt("dt") %>
"><%= rsArt("titulo") %>
<%= rsArt("fonte") %>

<% rsArt.movenext contaTexto = contaTexto + 1 Loop %>

leiamais

Publicidade Goooooogle:

<% sql = "SELECT * FROM notas ORDER by id DESC" Set rsNot = Server.CreateObject("ADODB.Recordset") rsNot.Open sql, MeuDB, 3, 3 ContaTexto = 1 Do While not rsNot.eof AND ContaTexto < 11 sql = "SELECT * FROM autores WHERE id = " & rsNot("idAutor") Set rsAutor = Server.CreateObject("ADODB.Recordset") rsAutor.Open sql, MeuDB, 3, 3 %> <%= rsNot("dt") %>
"><%= rsNot("titulo") %>
<%= rsAutor("nome") %>

<% rsNot.movenext ContaTexto = ContaTexto + 1 Loop %>

leiamais

<% sql = "SELECT * FROM categorias ORDER by nome" Set rsCat = Server.CreateObject("ADODB.Recordset") rsCat.Open sql, MeuDB, 3, 3 Do While not rsCat.eof %>

" rel="tag"><%= rsCat("nome") %>

<% rsCat.movenext Loop %>

<% sql = "SELECT * FROM comentarios ORDER by id DESC" Set rsCom = Server.CreateObject("ADODB.Recordset") rsCom.Open sql, MeuDB, 3, 3 ContaTexto = 1 if rsCom.eof then %> Nenhum comentário ainda! <% else Do While not rsCom.eof AND ContaTexto < 11 %>

#comenta"><%= rsCom("autor") %>

<% rsCom.movenext ContaTexto = ContaTexto + 1 Loop end if %>

<% sql = "SELECT * FROM links ORDER by titulo" Set rsLnk = Server.CreateObject("ADODB.Recordset") rsLnk.Open sql, MeuDB, 3, 3 Do While not rsLnk.eof %>

" rel="tag"><%= rsLnk("titulo") %>

<% rsLnk.movenext Loop %>


Licença Creative Commons
As notas desse blog estão licenciadas sob uma Licença Creative Commons.



Esse blog é melhor visualizado com Mozilla Firefox




O que é isso?

See this page in english
(by Google)


Sistema BLOGUIM BETA.
Rio de Janeiro, 2005.