<%@ Language=VBScript %>
<%Option Explicit%>
<%
Dim Secao:Secao=""
Dim Indice
Indice=Request("Indice")
MontarAgenda()
Dim Titulo
Dim Descricao
Dim Local
Dim Data
Dim Horario
Dim Mapa
Dim DiaMes
Sub MontarAgenda()
Dim Referencia
Dim Conteudo
Dim I
Dim Linha
Referencia=CLng(Indice)
Call FileReadTxt("agenda.txt",Conteudo)
I=1
Linha=StrParse(Conteudo,I,"|" & VbCrLf)
Do While Linha<>""
Indice=StrParse(Linha,1,"|")
If IsNumeric(Indice) Then
If CLng(Indice)>=Referencia Then
Data=StrParse(Linha,2,"|")
Horario=StrParse(Linha,3,"|")
Titulo=StrParse(Linha,4,"|")
Descricao=StrParse(Linha,5,"|")
Local=StrParse(Linha,6,"|")
Mapa=StrParse(Linha,7,"|")
DiaMes=Right("0" & Day(Data),2) & "/" & Right("0" & Month(Data),2)
Exit Do
End If
End If
I=I+1
Linha=StrParse(Conteudo,I,"|" & VbCrLf)
Loop
End Sub
%>
MANGUEIRA - AGENDA - DETALHE DO EVENTO
