%@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
primeira página > arquivo newsletters >
<% If request.QueryString("cmd")="off" Then %>
<%=(newsletterindividual.Fields.Item("titulo").Value)%><% End If %>
<% If request.QueryString("cmd")="on" or request.QueryString("cmd")="" Then %>
<%
dim TZnest
dim lastTZnest
%>
<%
While ((Repeat1__numRows <> 0) AND (NOT newsletter.EOF))
%>
<% TFM_nest = newsletter.Fields.Item("ano").Value
If lastTFM_nest <> TFM_nest Then
lastTFM_nest = TFM_nest %>
<%=(newsletter.Fields.Item("ano").Value)%>
<%End If 'End Basic-UltraDev Simulated Nested Repeat %>
<% TZnest = newsletter.Fields.Item("mes").Value
If lastTZnest <> TZnest Then
lastTZnest = TZnest %>
<%
if (newsletter.Fields.Item("mes").Value)=1 Then
response.Write("Janeiro")
End If
%>
<%
if (newsletter.Fields.Item("mes").Value)=2 Then
response.Write("Fevereiro")
End If
%>
<%
if (newsletter.Fields.Item("mes").Value)=3 Then
response.Write("Março")
End If
%>
<%
if (newsletter.Fields.Item("mes").Value)=4 Then
response.Write("Abril")
End If
%>
<%
if (newsletter.Fields.Item("mes").Value)=5 Then
response.Write("Maio")
End If
%>
<%
if (newsletter.Fields.Item("mes").Value)=6 Then
response.Write("Junho")
End If
%>
<%
if (newsletter.Fields.Item("mes").Value)=7 Then
response.Write("Julho")
End If
%>
<%
if (newsletter.Fields.Item("mes").Value)=8 Then
response.Write("Agosto")
End If
%>
<%
if (newsletter.Fields.Item("mes").Value)=9 Then
response.Write("Setembro")
End If
%>
<%
if (newsletter.Fields.Item("mes").Value)=10 Then
response.Write("Outubro")
End If
%>
<%
if (newsletter.Fields.Item("mes").Value)=11 Then
response.Write("Novembro")
End If
%>
<%
if (newsletter.Fields.Item("mes").Value)=12 Then
response.Write("Dezembro")
End If
%>