<%@LANGUAGE="VBSCRIPT" %> <% Dim last_news Dim last_news_numRows Set last_news = Server.CreateObject("ADODB.Recordset") last_news.ActiveConnection = MM_cenaberta_STRING last_news.Source = "SELECT * FROM noticias WHERE mostrar_pag_seccao=1 AND id_seccao<>11 and data_arquivo>=now() ORDER BY data_hora DESC" last_news.CursorType = 0 last_news.CursorLocation = 2 last_news.LockType = 1 last_news.Open() last_news_numRows = 0 %> <% Dim Repeat1__numRows Dim Repeat1__index Repeat1__numRows = 5 Repeat1__index = 0 last_news_numRows = last_news_numRows + Repeat1__numRows %> document.write('') document.write('') document.write('') document.write('') <% While ((Repeat1__numRows <> 0) AND (NOT last_news.EOF)) %> document.write('') document.write('') document.write('') <% Repeat1__index=Repeat1__index+1 Repeat1__numRows=Repeat1__numRows-1 last_news.MoveNext() Wend %> document.write('') document.write('

últimas

<%= DoDateTime((last_news.Fields.Item("data_hora").Value), 2, 2070) %> ') document.write('&idcanal=<%=(last_news.Fields.Item("id_seccao").Value)%>"><%=(last_news.Fields.Item("titulo").Value)%>

receber newsletter

') <% last_news.Close() Set last_news = Nothing %>