<%sql = "select * from noticias_portal where publicada = 1 and fecha_publicacion < '" & Now() & "'"
set rs_Noticias = Server.CreateObject("ADODB.RecordSet")
rs_Noticias.Open sql, conexion%>
<%
if not rs_Noticias.EoF then
while not rs_Noticias.EoF
ref_noticia = rs_Noticias("Ref_Noticia")
titular = Server.HTMLEncode(rs_Noticias("Titular"))
subtitular = Server.HTMLEncode(rs_Noticias("Subtitular"))
fecha_publicacion = rs_Noticias("Fecha_Publicacion")
publicada = rs_Noticias("Publicada")
ruta_imagen = rs_Noticias("Ruta_Imagen")
%>
<% rs_Noticias.MoveNext()
wend
else%>
No hay ninguna noticia publicada en este momento.
<%end if%>
