 |
<% 'Ñ aparece "ANTERIR" se estiver em Janeiro
if mes="1" then %>
<% else %>
<% end if %> |
<%= MesManu%>/<%=ano%> |
<% 'Ñ aparece "PROXIMO" se estiver em Dezembro
if mes="12" then
%> 
<% else %>
<% end if
%> |
| |
<%
'----Espaco em branco, até o dia em q comeca o Mes
for i = 1 to mesInicio-1
DiasPassados = DiasPassados+1
%>
| |
<% next
'------Começ a listagem do Mes
for i = 1 to qtdia
DiasPassados = DiasPassados+1
'----- Verifica se há algum evento para o dia
IF 1=1 then
If i = cint(Evento(i)) then%>
<%'if i = Day(date) AND cint(Mes)=cint(Month(date)) AND cint(Ano)=cint(Year(date)) then Response.write("") end if %>
<%=i%> |
<%
linkVertodas=ID(i)
else%>
height="17">
<%=i%> |
<% end if%>
<%
ELSE
%>
height="17">
<%=i%> |
<%
end if
'Faz a soma para q seja criado nova linha na tabela.
IF DiasPassados=7 then
Response.write(" ")
DiasPassados = 0
end if
next
IF DiasPassados<>7 then
for i = 1 to (7-DiasPassados)
%>
| |
<% next
end if
Busca.close
Set Busca = nothing
%>
|
<%
Set Busca = siteConexao.Execute("SELECT * FROM data WHERE mes="& mes &" AND ano="& ano &" ORDER BY dia ASC")
Do while not busca.EOF
mesTexto = Split("jan,fev,mar,abr,mai,jun,jul,ago,set,out,nov,dez",",")
dia = busca("dia")
mes = busca("mes")
ano = busca("ano")
cidade = busca("cidade")
estado = busca("estado")
localshow = busca("localshow")
informacoes = busca("informacoes")
data = "Data: "& dia &" - "& mesTexto(mes-1) &" - "& ano &"
Cidade: "& cidade &" - "& estado &"
Local:"& localshow &"
Informações:"& informacoes &"
"
datas = datas & data
ID(ANv) = busca("id")
busca.movenext
loop
response.write(datas)
fechaSiteBD
%>
|
|
|
|
