<%@LANGUAGE="VBSCRIPT" CODEPAGE="1252"%> <% pagina = "agenda"%> <% Dim Agenda__MMColParam Agenda__MMColParam = "1" If (Request.QueryString("mes") <> "") Then Agenda__MMColParam = Request.QueryString("mes") End If %> <% if Agenda__MMColParam = "1" then Dim Agenda_Mes Set Agenda_Mes = Server.CreateObject("ADODB.Recordset") Agenda_Mes.ActiveConnection = MM_iabsp_STRING Agenda_Mes.Source = "SELECT mes FROM Agenda_Mes ORDER BY ID_mes DESC" Agenda_Mes.CursorType = 0 Agenda_Mes.CursorLocation = 2 Agenda_Mes.LockType = 1 Agenda_Mes.Open() Agenda__MMColParam =(Agenda_Mes.Fields.Item("mes").Value) Agenda_Mes.Close() Set Agenda_Mes = Nothing end if %> <% Dim Agenda Dim Agenda_numRows Set Agenda = Server.CreateObject("ADODB.Recordset") Agenda.ActiveConnection = MM_iabsp_STRING Agenda.Source = "SELECT dia, evento, info_email, info_site, info_tel, mesano, quente, titulo FROM Agenda WHERE mesano = '" + Replace(Agenda__MMColParam, "'", "''") + "' ORDER BY dia ASC" Agenda.CursorType = 0 Agenda.CursorLocation = 2 Agenda.LockType = 1 Agenda.Open() Agenda_numRows = 0 %> <% Dim Repeat2__numRows Dim Repeat2__index Repeat2__numRows = -1 Repeat2__index = 0 Agenda_numRows = Agenda_numRows + Repeat2__numRows %> Instituto de Arquitetos do Brasil - Departamento de São Paulo
<% If Agenda__MMColParam = "jan" Then %> <% else %> <% End If %> <% If Agenda__MMColParam = "fev" Then %> <% else %> <% End If %> <% If Agenda__MMColParam = "mar" Then %> <% else %> <% End If %> <% If Agenda__MMColParam = "abr" Then %> <% else %> <% End If %> <% If Agenda__MMColParam = "mai" Then %> <% else %> <% End If %> <% If Agenda__MMColParam = "jun" Then %> <% else %> <% End If %> <% If Agenda__MMColParam = "jul" Then %> <% else %> <% End If %> <% If Agenda__MMColParam = "ago" Then %> <% else %> <% End If %> <% If Agenda__MMColParam = "set" Then %> <% else %> <% End If %> <% If Agenda__MMColParam = "out" Then %> <% else %> <% End If %> <% If Agenda__MMColParam = "nov" Then %> <% else %> <% End If %> <% If Agenda__MMColParam = "dez" Then %> <% else %> <% End If %>  
<% If Not Agenda.EOF Or Not Agenda.BOF Then %> <% While ((Repeat2__numRows <> 0) AND (NOT Agenda.EOF)) %>
  <%=(Agenda.Fields.Item("dia").Value)%>
  <%=(Agenda.Fields.Item("titulo").Value)%>
<%=(Agenda.Fields.Item("evento").Value)%>

Informações:
<% info_tel =(Agenda.Fields.Item("info_tel").Value)%><% if info_tel&"a" <> "a" then %>
<% = replace(info_tel,chr(13),"
") %><% end if %> <% info_email =(Agenda.Fields.Item("info_email").Value)%><% if info_email&"a" <> "a" then %>
<% = info_email %><% end if %> <% info_site =(Agenda.Fields.Item("info_site").Value)%><% if info_site&"a" <> "a" then %>
<% = info_site %><% end if %>
 
<% Repeat2__index=Repeat2__index+1 Repeat2__numRows=Repeat2__numRows-1 Agenda.MoveNext() Wend %> <% End If ' end Not Agenda.EOF Or NOT Agenda.BOF %> <% If Agenda.EOF And Agenda.BOF Then %> Não temos eventos agendados neste mês <% End If ' end Agenda.EOF And Agenda.BOF %>
<% Agenda.Close() Set Agenda = Nothing %>