<% numId = request("id") if numId <> EMPTY then sql = "SELECT * FROM notas WHERE id = " & numId else sql = "SELECT * FROM notas ORDER by id 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") %>
por "><%= rsAutor("nome") %>, em <%= rsArtigos("dt") %>

<%= trataStringHtm(rsArtigos("texto")) %> <% if rsArtigos("artRelac") <> 0 then sql = "SELECT * FROM artigos WHERE id = " & rsArtigos("artrelac") Set rsArtNot = Server.CreateObject("ADODB.Recordset") rsArtNot.Open sql, MeuDB, 3, 3 %>

Artigo Relacionado: "><%= rsArtNot("titulo") %>

<% end if sql = "SELECT * FROM comentarios WHERE idNota = " & rsArtigos("id") Set rsComNot = Server.CreateObject("ADODB.Recordset") rsComNot.Open sql, MeuDB, 3, 3 %>

Comente:



"> Nome:


E-mail:


Comentário:


comenta
<% if rsComNot.eof OR rsComNot.bof then %>
<% else %>

Comentários: <% Do While not rsComNot.eof %>

<%= rsComNot("autor") %>
<%= rsComNot("texto") %>

<% rsComNot.movenext Loop 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") %>
<%= rsAutor("nome") %>

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