<% set conexao = server.CreateObject("adodb.connection") conexao.Open application("odbc") %> <% sql = "select * from cat_fotos where status = 'A' order by data desc" set rsfotos = conexao.Execute(sql) while not rsfotos.eof %> <% rsfotos.movenext wend %>

"><%=rsfotos("data")%> - <%=rsfotos("titulo")%>, <%=rsfotos("local")%>

<% set rsfotos = nothing set conexao = nothing %>