<%@LANGUAGE="VBSCRIPT" CODEPAGE="1252"%> <% Dim newsletter Dim newsletter_numRows Set newsletter = Server.CreateObject("ADODB.Recordset") newsletter.ActiveConnection = MM_cenaberta_STRING newsletter.Source = "SELECT newsletter.id_newsletter, Year([data_envio]) AS ano, Month([data_envio]) AS mes, newsletter.titulo, newsletter.newsletter, newsletter.numero FROM newsletter ORDER BY Year([data_envio]) DESC , Month([data_envio]) DESC" newsletter.CursorType = 0 newsletter.CursorLocation = 2 newsletter.LockType = 1 newsletter.Open() newsletter_numRows = 0 %> <% Dim newsletterindividual__MMColParamNews newsletterindividual__MMColParamNews = "0" If (request.querystring("idnews") <> "") Then newsletterindividual__MMColParamNews = request.querystring("idnews") End If %> <% Dim newsletterindividual Dim newsletterindividual_numRows Set newsletterindividual = Server.CreateObject("ADODB.Recordset") newsletterindividual.ActiveConnection = MM_cenaberta_STRING newsletterindividual.Source = "SELECT * FROM newsletter WHERE id_newsletter=" + Replace(newsletterindividual__MMColParamNews, "'", "''") + "" newsletterindividual.CursorType = 0 newsletterindividual.CursorLocation = 2 newsletterindividual.LockType = 1 newsletterindividual.Open() newsletterindividual_numRows = 0 %> <% Dim Repeat1__numRows Dim Repeat1__index Repeat1__numRows = -1 Repeat1__index = 0 newsletter_numRows = newsletter_numRows + Repeat1__numRows %> <% Dim TFM_nest, lastTFM_nest%> cenaberta apresentação memória agenda documentação destaque edições conexões <% newsletter.Close() Set newsletter = Nothing %> <% newsletterindividual.Close() Set newsletterindividual = Nothing %>