HO RISOLTO IN QUESTO MODO:

dim GG, MM, AA

GG = Day(Date)

MM = MonthName(Month(Date))

if MM = "September" then
mese = "Settembre"
ElseIf MM = "October" then
mese = "Ottobre"
ElseIf MM = "November" then
mese = "Novembre"
ElseIf MM = "December" then
mese = "Dicembre"
ElseIf MM = "January" then
mese = "Gennaio"
ElseIf MM = "February" then
mese = "Febbraio"
ElseIf MM = "March" then
mese = "Marzo"
ElseIf MM = "April" then
mese = "Aprile"
ElseIf MM = "May" then
mese = "Maggio"
ElseIf MM = "June" then
mese = "Giugno"
ElseIf MM = "July" then
mese = "Luglio"
ElseIf MM = "August" then
mese = "Agosto"
else
mese = "Data errata"
end if

AA = Year(Date)

dim miadata
miadata = GG
miadata = miadata & ""
miadata = miadata & mese
miadata = miadata & ""
miadata = miadata & AA
response.write miadata