<%@ Language=VBScript %> <%Option Explicit%> <% Dim Secao:Secao="Home" MontarAgenda() Dim Lista Sub MontarAgenda() Dim Referencia Dim Conteudo Dim Data Dim Titulo Dim Descricao Dim Indice Dim I Dim Linha Dim Quantidade Referencia=Date Call FileReadTxt("agenda.txt",Conteudo) Lista="" Quantidade=0 I=1 Linha=StrParse(Conteudo,I,"|" & VbCrLf) Do While Linha<>"" Data=StrParse(Linha,2,"|") If IsDate(Data) Then If CDate(Data)>=Referencia Then Indice=StrParse(Linha,1,"|") Titulo=StrParse(Linha,4,"|") Descricao=StrParse(Linha,5,"|") Lista=Lista & "
" & Right("0" & Day(Data),2) & "/" & Right("0" & Month(Data),2) & "
" & Titulo & "
" & VbCrLf Quantidade=Quantidade+1 If Quantidade>=3 Then Exit Do End If End If End If I=I+1 Linha=StrParse(Conteudo,I,"|" & VbCrLf) Loop End Sub Dim Venda Randomize() Venda=CInt(Rnd()*3) %> MANGUEIRA
fale conosco
seja parceiro
+ DESTAQUES
mangueira é música do Brasil, vendas de fantasias

<%=TituloFlash("ESTAÇÃO PRIMEIRA",250,30,"","","","")%>
<%=SubTituloFlash("NOTÍCIAS",250,30,"","","","")%>
MANGUEIRA ANUNCIA ENREDO DE 2011 EM FEIJOADA
Evento no Palácio do Samba também vai apresentar outras novidades
+ leia mais
samba 2010
 >> veja a letra

<%=SubTituloFlash("AGENDA",150,30,"","","","")%>
<%=Lista%> + ver mais
ingresso
<%=TituloFlash("A MANGUEIRA CHEGOU",250,30,"","","","")%>

arengueiros

shows

programas sociais

hinos
rádio
<%=TituloFlash("A MANGUEIRA",250,30,"","","","")%>
tradição
história
exaltação
surdo um
palácio do samba
diretoria
estatuto
<%=TituloFlash("SIGA A MANGUEIRA",180,30,"","","","")%>
twitter
you tube
orkut