<% OpenPage True %>

<% Dim RsNotiNoved Dim strNotiIds Set RsNotiNoved = GetExecute("SELECT LG_NOTICIAS.*, LG_NOTICIAS_SEC.NTS_NOMBRE " & _ "FROM LG_NOTICIAS INNER JOIN LG_NOTICIAS_SEC ON LG_NOTICIAS.NTS_NRO = LG_NOTICIAS_SEC.NTS_NRO " & _ "WHERE LG_NOTICIAS.NTA_F_PUBLIC <= CURDATE() AND LG_NOTICIAS.NTA_F_FIN >= CURDATE() " & _ "ORDER BY LG_NOTICIAS.NTA_F_PUBLIC DESC LIMIT 0,10") Do While NOT RsNotiNoved.EOF %> <% strNotiIds = strNotiIds & RsNotiNoved.Fields("NTA_NRO").Value & ", " RsNotiNoved.MoveNext Loop RsNotiNoved.Close Set RsNotiNoved = Nothing If Len(strNotiIds) > 2 Then strNotiIds = Left(strNotiIds, Len(strNotiIds)-2) Else strNotiIds = 1.1 End if %>   Resumen de las ultimas Noticias > <%=RsNotiNoved.Fields("NTS_NOMBRE").Value%> " class="titlulos"><%=RsNotiNoved.Fields("NTA_TITULO").Value%> <%=FormatDateTime(RsNotiNoved.Fields("NTA_F_PUBLIC").Value,2)%> <%=Replace(RsNotiNoved.Fields("NTA_RESUMEN").Value, chr(13), " ")%>   Todas <% Dim RsNotiTotal Set RsNotiTotal = GetExecute("SELECT LG_NOTICIAS.*, LG_NOTICIAS_SEC.NTS_NOMBRE " & _ "FROM LG_NOTICIAS INNER JOIN LG_NOTICIAS_SEC ON LG_NOTICIAS.NTS_NRO = LG_NOTICIAS_SEC.NTS_NRO " & _ "WHERE LG_NOTICIAS.NTA_F_PUBLIC <= CURDATE() AND LG_NOTICIAS.NTA_F_FIN >= CURDATE() and NTA_NRO NOT IN (" & strNotiIds & ")" & _ "ORDER BY LG_NOTICIAS.NTA_F_PUBLIC DESC") Do While NOT RsNotiTotal.EOF %> <% RsNotiTotal.MoveNext Loop RsNotiTotal.Close Set RsNotiTotal = Nothing %> " class="titlulos"><%=FormatDateTime(RsNotiTotal.Fields("NTA_F_PUBLIC").Value,2) & " - " & RsNotiTotal.Fields("NTA_TITULO").Value%>   Búsqueda de articulos