<%
fundo=request.Cookies("tema")("valor")
if fundo="" then
fundo=1
end if
%>
<%
d=day(now())
m=month(now())
y=year(now())
if m=1 then m1="Janeiro"
if m=2 then m1="Fevereiro"
if m=3 then m1="Março"
if m=4 then m1="Abril"
if m=5 then m1="Maio"
if m=6 then m1="Junho"
if m=7 then m1="Julho"
if m=8 then m1="Agosto"
if m=9 then m1="Setembro"
if m=10 then m1="Outubro"
if m=11 then m1="Novembro"
if m=12 then m1="Dezembro"
response.write d & "." & m1 & "." & y
%>