Giorni settimana italiano

[Pierhagi]

Ciao a tutti

ho un problema sul trasformare i giorni in italiano.

Ho un pagina asp nella quale vengono incluse 2 file asp nei quali estraggo in uno calendario di calcio e nell'altro il dettaglio di una giornata.

Nel calendario faccio visualizzare i giorni della settimana in italiano così:

<% Session.LCID = 1040 %>

<%
Dim giorno_settimana
giorno_settimana = rs2("DATA")
%>
<%= (WeekDayName(WeekDay(giorno_settimana)))%>

Con questo codice riesco ad ottenere i giorni della settimana in italiano MA mi crea un errore sull'altro file:

error '80020009'

/include/inc_risultati.asp, line 305

Il codice che va in conflitto è:
riga 305: <% If rs_calendario_dx_r("DATA") <> "" Then %>

<%=DoDateTime(rs_calendario_dx_r("DATA"), 2, 1040)%>
<% Else %>

<%End If%>

Potete aiutarmi?

Pier

[optime]

riga 305: <% If rs_calendario_dx_r("DATA") <> "" Then %>


sicuro che il recordset contenga qualcosa?

[Pierhagi]

Ciao

si contiene il valore.

[Ethum]

mah

[Ethum]

lol

[Pierhagi]

qui c'è la pagina:

http://www.sampdoriaclubfinale.it/ca...0A%202009-2010

la data dell'errore è nella colonna di destra sotto Prossima Partita.

[Pierhagi]

Ho risolto inserendo questo script

<SCRIPT RUNAT=SERVER LANGUAGE=VBSCRIPT>
function DoDateTime(str, nNamedFormat, nLCID)
dim strRet
dim nOldLCID

strRet = str
If (nLCID > -1) Then
oldLCID = Session.LCID
End If

On Error Resume Next

If (nLCID > -1) Then
Session.LCID = nLCID
End If

If ((nLCID < 0) Or (Session.LCID = nLCID)) Then
strRet = FormatDateTime(str, nNamedFormat)
End If

If (nLCID > -1) Then
Session.LCID = oldLCID
End If

DoDateTime = strRet
End Function
</SCRIPT>

al posto di questo:

<% ' INIZIO SCRIPT DATA/ORA
'-----------------------------------------------------
' Serve x formattare la DATA e ORA nel formato italiano
Function DoDateTime(str, nNamedFormat, nLCID)
dim strRet
dim nOldLCID

strRet = str
If (nLCID > -1) Then
oldLCID = Session.LCID
End If

On Error Resume Next

If (nLCID > -1) Then
Session.LCID = nLCID
End If

If ((nLCID < 0) Or (Session.LCID = nLCID)) Then
strRet = FormatDateTime(str, nNamedFormat)
End If

If (nLCID > -1) Then
Session.LCID = oldLCID
End If

DoDateTime = strRet
End Function

'-----------------------------------------------------
' FINE SCRIPT DATA/ORA
%>