<% Dim Rs, sSql, Cn, id, foto, sSql2, Rs2 Call fAbreCon() sSql = "SELECT * FROM noticias Order By id_noticia Desc" Set Rs = Cn.Execute(sSql) %> agenda_novo
<%While Not Rs.EOF%> <%Rs.MoveNext%> <%Wend%>
  <%=Rs("data")%> " class="linkred"><%=Rs("manchete")%>
 
<% fFecha(Rs) Call fFechaCon %>