Function mostrareNavigatore()
On Error Resume Next

Dim MyDate, MyDay, MyYear, MyMonth, mystringa

MyDate=Date
MyDay = Day(MyDate)
MyYear = Year(MyDate) 
mese = Month(MyDate)        
myWeekday = Weekday(MyDate)

Select Case myWeekday
 Case 1
   nomeday = "Domenica"
 Case 2
   nomeday = "Lunedì"
 Case 3
   nomeday = "Martedì"
 Case 4
   nomeday = "Mercoledì"
 Case 5
   nomeday = "Giovedì"
 Case 6
   nomeday = "Venerdì"
 Case 7
   nomeday = "Sabato"
end Select

Select Case mese
 Case 1
   nomeMese = "Gennaio"
 Case 2
   nomeMese = "Febbraio"
 Case 3
   nomeMese = "Marzo"
 Case 4
   nomeMese = "Aprile"
 Case 5
   nomeMese = "Maggio"
 Case 6
   nomeMese = "Giugno"
 Case 7
   nomeMese = "Luglio"
 Case 8
   nomeMese = "Agosto"
 Case 9
   nomeMese = "Settembre"
 Case 10
   nomeMese = "Ottobre"
 Case 11
   nomeMese = "Novembre"
 Case 12
   nomeMese = "Dicembre"
End Select

mystringa=trim(nomeday + "<br>" + cstr(MyDay) + " " + nomeMese + " " + cstr(MyYear))
document.write(mystringa)
End Function