<% Set rs = Server.CreateObject("ADODB.RecordSet") Sql = "SELECT * FROM Noticias WHERE Activo order by fecha" set rs = Conn.Execute(Sql) for x=1 to 20 if rs.eof then exit for else %> <% rs.movenext end if next rs.close conn.close set rs=Nothing set conn=Nothing %>

<%=rs("titular")%>

<%=rs("contenido")%>