d=weekday(date)
if d=1 then
today="Domenica"
elseif d=2 then
today="Lunedì"
elseif d=3 then
today="Martedì"
elseif d=4 then
today="Mercoledì"
elseif d=5 then
today="Giovedì"
elseif d=6 then
today="Venerdì"
elseif d=7 then
today="Sabato"
end if
m=month(date)
if m=1 then
mon="Gennaio"
elseif m=2 then
mon="Febbraio"
elseif m=3 then
mon="Marzo"
elseif m=4 then
mon="Aprile"
elseif m=5 then
mon="Maggio"
elseif m=6 then
mon="Giugno"
elseif m=7 then
mon="Luglio"
elseif m=8 then
mon="Agosto"
elseif m=9 then
mon="Settembre"
elseif m=10 then
mon="Ottobre"
elseif m=11 then
mon="Novembre"
elseif m=12 then
mon="Dicembre"
end if
document.Write " " & today & " " & day(now) & " " & mon & " " & year(date) & " </font>"