<%
'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("tit_cont")%> |
|
| <%=rs("dta_cont")%> |
|
| <%=rs("texto_cont")%> |
 |
<%
rs.movenext
wend
Conn.close
%>