<% numId = request("id") if numId <> EMPTY then sql = "SELECT * FROM artigos WHERE id = " & numId else sql = "SELECT * FROM artigos ORDER by dt DESC" end if Set rsArtigos = Server.CreateObject("ADODB.Recordset") rsArtigos.Open sql, MeuDB, 3, 3 %> <% Server.Execute("metatraffic/track.asp") %>


<% if numId <> empty then %>

<% sql = "SELECT * FROM autores WHERE id = " & rsArtigos("idAutor") Set rsAutor = Server.CreateObject("ADODB.Recordset") rsAutor.Open sql, MeuDB, 3, 3 mtzCat = SPLIT(rsArtigos("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 %>)

<%= rsArtigos("titulo") %>
<%= rsArtigos("fonte") %>, <%= rsArtigos("dt") %>

incluído por "><%= rsAutor("nome") %>

<%= trataStringHtm(rsArtigos("texto")) %> <% if rsArtigos("linkrelac") <> "http://" then %>

"><%= rsArtigos("linkrelac") %>

<% end if %>
<% else %>
<% Do While not rsArtigos.eof sql = "SELECT * FROM autores WHERE id = " & rsArtigos("idAutor") Set rsAutor = Server.CreateObject("ADODB.Recordset") rsAutor.Open sql, MeuDB, 3, 3 %> <%= rsArtigos("dt") %>
"><%= rsArtigos("titulo") %>
<%= rsArtigos("fonte") %>

<% rsArtigos.movenext Loop %>
<% end if %>