<% set rsLista = conexao.execute("SELECT * FROM informativos_categorias ORDER BY ordem LIMIT 0,4") if not rsLista.EOF then do while not rsLista.EOF set rsLista2 = conexao.execute("SELECT * FROM informativos WHERE ativar='true' AND codigo_categoria='"&rsLista("codigo")&"' ORDER BY ordem") if not rsLista2.EOF then set rsLista3 = conexao.execute("SELECT * FROM arquivos WHERE codigo='"&rsLista2("codigo_arquivo")&"'") if not rsLista3.EOF then arquivo_tit=rsLista3("titulo") arquivo_arq=rsLista3("arquivo") end if rsLista3.close set rsLista3 = nothing %> <% end if rsLista2.close set rsLista2 = nothing rsLista.MoveNext loop end if rsLista.close set rsLista = nothing %>