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


<% if numId <> empty then %>

{ <%= rsCategorias("nome") %> }

" rel="tag">Tags Technorati | |

Notas incluídas:

<% sql = "SELECT * FROM notas ORDER by dt DESC" Set rsNotas = Server.CreateObject("ADODB.Recordset") rsNotas.Open sql, MeuDB, 3, 3 Do While not rsNotas.eof mtzCat = SPLIT(rsNotas("idCategorias"), ",") MaxConta = Ubound(mtzCat) For i=0 to MaxConta if numId = trim(mtzCat(i)) then %> "><%= rsNotas("titulo") %>
Incluído em <%= rsNotas("dt") %>

<% end if Next rsNotas.movenext Loop %>

Artigos incluídos:

<% sql = "SELECT * FROM artigos ORDER by dt DESC" Set rsArtigos = Server.CreateObject("ADODB.Recordset") rsArtigos.Open sql, MeuDB, 3, 3 Do While not rsArtigos.eof mtzCat = SPLIT(rsArtigos("idCategorias"), ",") MaxConta = Ubound(mtzCat) For i=0 to MaxConta if numId = trim(mtzCat(i)) then %> "><%= rsArtigos("titulo") %>
<%= rsArtigos("fonte") %> em <%= rsArtigos("dt") %>

<% end if Next rsArtigos.movenext Loop %>
<% else %>
<% Do While not rsCategorias.eof %> "><%= rsCategorias("nome") %>

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