<%
CurrentMonth = request("CurrentMonth")
if CurrentMonth = "" then CurrentMonth = month(date)
if CurrentMonth <10 then CurrentMonth = "0" & CurrentMonth
for a = 1 to 12
session.LCID = 1046
response.write ""& monthname(a) & "
"
next
%>
|
|
.: <%= Ucase(monthName(CurrentMonth)) %>
<%
inicio = datevalue("01/"&CurrentMonth)
final = (dateADD("M", 1, inicio)-1)
dia_inicio = day(inicio)
mes_inicio = month(inicio)
ano_inicio = year(inicio)
dia_final = day(final)
mes_final = month(final)
ano_final = year(final)
'response.end
CALL CreateConnection()
session.LCID = 1033
CALL CreateRecordSet(agenda, "SELECT_AGENDA_SITE_COMPLETO '"&inicio&"', '"&final&"', '"&dia_inicio&"', '"&dia_final&"', '"&mes_inicio&"', '"&mes_final&"', '"&ano_inicio&"', '"&ano_final&"' ")
'response.write "SELECT_AGENDA_SITE_COMPLETO '"&inicio&"', '"&final&"', '"&dia_inicio&"', '"&dia_final&"', '"&mes_inicio&"', '"&mes_final&"', '"&ano_inicio&"', '"&ano_final&"' "
session.LCID = 1046
if not agenda.eof then
%>
<%
dif = 0
nome_GP = ""
bloqueio = 0
outro_item_mesma_categoria = 0
url = 0
dia = 0
do until agenda.eof
if int(day(agenda("data"))) <> int(dia) then
dia = day(agenda("data"))
IF dia < 10 then dia = "0"&dia
mes = month(agenda("data"))
IF mes < 10 then mes = "0"&mes
response.write "
" &dia & "/" & mes & "
"
end if
if not isnull(agenda("hora")) then
hora = formatdatetime(agenda("hora"),4) &" - "
else
hora = ""
end if
Select case agenda("id_categoria")
case 27
diretorio = "f1"
case 28
diretorio = "fmundial"
case 29
diretorio = "irl"
case 30
diretorio = "f3000"
case 31
diretorio = "F3"
case 32
diretorio = "stock"
case 33
diretorio = "speedshow/frenault"
case 34
diretorio = "speedshow/copaclio"
case 35
diretorio = "nascar"
case 36
diretorio = "motogp"
case 37
diretorio = "rally"
case 38
diretorio = "ftruck"
case 39
diretorio = "especiais"
case 41
diretorio = "speedshow/megane"
End Select
'if (int(dif) <> int(agenda("dif"))) or ( dif = 1 and nome_GP <> agenda("nome_GP")) then
dif = agenda("dif")
Select Case DIF
Case 1
response.write ".:"& agenda("nome_categoria") & ""
if int(agenda("dif2")) = 1 then
response.write " - "& hora & agenda("nome_GP") & ""
end if
nome_GP = agenda("nome_GP")
response.write " "
Case 2
response.write ".:Aniversariante "
url = 1
Case 3
response.write ".:Extras "
End Select
'else
' outro_item_mesma_categoria = 1
'end if
dia = day(agenda("data"))
IF dia < 10 then dia = "0"&dia
mes = month(agenda("data"))
IF mes < 10 then mes = "0"&mes
if dif = 1 and outro_item_mesma_categoria = 1 and hora="" then
bloqueio = 1
end if
if bloqueio = 0 then
if url = 1 then
%>
" class="noticia_home">
<% end if
if dif = 1 and hora="" then
%>
" class="noticia_home">
<% end if %>
- <%= agenda("texto") %>
<%
end if
agenda.movenext
response.write "
"
bloqueio = 0
outro_item_mesma_categoria = 0
loop %>
|
<%
end if
call CloseRecordSet(agenda)
CALL CloseConnection()
%>
|
|
|
