Data formato lungo in italiano

[nm2002]

<%@ LANGUAGE = "VBScript" %>
<%
Session.LCID = 1040
dim datamia
datamia= formatDateTime(Date,vblongDate)
Response.Write (datamia)
%>


IL RISULTATO ?

????????????????

MA PERCHE' ????

[nm2002]

Visualizza giorno, mese, anno, in formato esteso
Codice: <% Response.Write(FormatDateTime(Now(),1) & " " )%>
Output HTML: Tuesday, April 20, 1999


ESISTE UN SCRIPT CHE MI CREA LA DATA QUI SOPRA NEL FORMATO ITALIANO ?

[Killer99]

lo script è quello, basta specificare ad inizio pagina: Session.lcid = 1040

[nm2002]

<%
Session.lcid = 1040
Response.Write(FormatDateTime(Now(),1) & " " )
%>


ti giuro che il risultato di questo codice è una serie di punti di domanda:
????????????????????????

Sto leggendo la DATA dal server della ditta dove lavoro, c'è qualche cosa da impostare nel server ?

[nm2002]

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