<% Dim Rs, sSql, Cn, id, foto, sSql2, Rs2 Call fAbreCon() sSql = "SELECT * FROM noticias Order By id_noticia Desc" Set Rs = Cn.Execute(sSql) %>

<%While Not Rs.EOF%> <%Rs.MoveNext%> <%Wend%>   <%=Rs("data")%> " class="linkred"><%=Rs("manchete")%>

<% fFecha(Rs) Call fFechaCon %>