<%
Dim NoticiaLetreiro
Dim NoticiaLetreiro_cmd
Dim NoticiaLetreiro_numRows
Set NoticiaLetreiro_cmd = Server.CreateObject ("ADODB.Command")
NoticiaLetreiro_cmd.ActiveConnection = MM_Loja_STRING
NoticiaLetreiro_cmd.CommandText = "SELECT TOP 15 * FROM noticias WHERE NoAr <= #"&date()&"# ORDER BY ID DESC"
NoticiaLetreiro_cmd.Prepared = true
Set NoticiaLetreiro = NoticiaLetreiro_cmd.Execute
NoticiaLetreiro_numRows = 0
%>
<%
NoticiaLetreiro.Close()
Set NoticiaLetreiro = Nothing
%>