<% 'monta o sql para consulta sql = "select top 5 * from tbl_cont,tbl_area where tbl_area.id_area = tbl_cont.id_area and tbl_cont.noar_cont = 's' order by tbl_cont.dta_cont desc" set rs = Conn.Execute(sql) 'monta o while while not rs.eof %> <% rs.movenext wend Conn.close %>

<%=rs("tit_cont")%>

<%=rs("dta_cont")%>

<%=rs("texto_cont")%>