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


<% if numId <> empty then %>

<%= rsAutores("nome") %> <% if rsAutores("tipo") = 2 then %>
(Colaborador/a)<% end if %>
<%= trataStringHtm(rsAutores("perfil")) %>

<% sql = "SELECT * FROM notas WHERE idAutor = " & rsAutores("id") & " ORDER by dt DESC" Set rsNotas = Server.CreateObject("ADODB.Recordset") rsNotas.Open sql, MeuDB, 3, 3 %> Notas incluídas:

<% Do While not rsNotas.eof %> "><%= rsNotas("titulo") %>
Incluído em <%= rsNotas("dt") %>

<% rsNotas.movenext Loop %>

<% sql = "SELECT * FROM artigos WHERE idAutor = " & rsAutores("id") & " ORDER by dt DESC" Set rsArtigos = Server.CreateObject("ADODB.Recordset") rsArtigos.Open sql, MeuDB, 3, 3 %> Artigos incluídos:

<% Do While not rsArtigos.eof %> "><%= rsArtigos("titulo") %>
<%= rsArtigos("fonte") %> em <%= rsArtigos("dt") %>

<% rsArtigos.movenext Loop %>
<% else %>
<% Do While not rsAutores.eof %> "><%= rsAutores("nome") %> <% if rsAutores("tipo") = 2 then %> (Colaborador/a)<% end if %>
<%= trataStringHtm(rsAutores("perfil")) %>

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