<%@ Language=VBScript %>
<%Option Explicit%>
<%
Dim Secao:Secao=""
Dim Dia
Dim Mes
Dim Ano
Dim NomeDoMes
Dim Dias
Dim Primeiro
Dim DiaDaSemana
Dim I
Dim Tabela
Dim Coluna
Dim Linha
Dim Meses:Meses=Array("","Janeiro","Fevereiro","Março","Abril","Maio","Junho","Julho","Agosto","Setembro","Outubro","Novembro","Dezembro")
Dim Anterior
Dim Proximo
Primeiro=Request("Base")
If Primeiro="" Then
Primeiro="01/" & Month(Date) & "/" & Year(date)
End If
Dias=Day(DateAdd("d",-1,DateAdd("m",1,Primeiro)))
DiaDaSemana=WeekDay(Primeiro)
Coluna=1
For I=2-DiaDaSemana To Dias
Linha=""
If Coluna=1 Then
Linha=Linha & "
"
End If
Linha=Linha & "
"
If I>0 Then
Linha=Linha & I
End If
Linha=Linha & "
"
If Coluna=7 Then
Linha=Linha & "
"
Coluna=1
Else
Coluna=Coluna+1
End If
Tabela=Tabela & Linha
Next
If Coluna<>1 Then
For Coluna=Coluna To 7
Tabela=Tabela & "
"
Next
Tabela=Tabela & ""
End If
NomeDoMes=Meses(Month(Primeiro)) & " - " & Year(Primeiro)
Anterior=DateAdd("m",-1,Primeiro)
Proximo=DateAdd("m",1,Primeiro)
MontarAgenda()
Dim Lista
Dim Destaque
Sub MontarAgenda()
Dim Referencia
Dim Conteudo
Dim Data
Dim Titulo
Dim Descricao
Dim Horario
Dim Local
Dim Indice
Dim DiaMes
Dim I
Dim Linha
Referencia=CDate(Date)
Call FileReadTxt("agenda.txt",Conteudo)
Lista=""
I=1
Linha=StrParse(Conteudo,I,"|" & VbCrLf)
Do While Linha<>""
Data=StrParse(Linha,2,"|")
If IsDate(Data) Then
' If CDate(Data)>=Referencia And Month(Data)=Month(Referencia) And Year(Data)=Year(Referencia) Then
If CDate(Data)>=Referencia Then
Indice=StrParse(Linha,1,"|")
Titulo=StrParse(Linha,4,"|")
Lista=Lista & "
