salve a tutti... vi chiedo di aiutarmi per un problema che mi sta mandando ai pazzi!
ho uno script per un calendario (devo in pratica creare un calendario nel quale si possano inserire degli aventi -mi basta pure una piccola gif- per far capire che tale tot data è stata già prenotata) ho trovato, dicevo uno script che fa al caso mio... purtroppo però ho il problema della session.lcid... nel senso che ho dovuto necessariamente settarla a 1033 e non a 1040 per il semplice motivo che quando modifico una data questa non vìeno visualizzata, nel db si inserisce ma non viene visualizzata!
vorrei un piccolo aiuto nel tentare di tradurre questo codice in maniera tale che mi traduca le date in italiano e non in americano!
vi posto una parte di codice che secondo me (ma può essere he dico na ka.......) dovrei tradurre! il codice non è completo, continua, ma non posso postare tutto altrimenti mi sbatterebbo fuori dal forum! però sistemando questo potrei capire come proseguire grazie a chiunque voglia darmi un piccolo aiuto:

codice:
<%Sub DisplayCalendar(mMonth, yYear)
  
  dDay = DateSerial(yYear,mMonth,1)
  mMonth = Month(dDay)
  yYear = Year(dDay)
  FirstDayOfMonth =  Weekday(dDay)

  '## Display the Top of Calendar ##
  CALL DisplayCalendarTop(dDay)

  '## Start Displaying the Actual Calendar ##
  Response.Write "<Table Align=center width=" & TableWidth & " CellPadding=3 CellSpacing=1 Border=1 BgColor=" & BgColor & ">" & vbCrlf
  Response.Write "<TR Valign=Top Align=Center BgColor=" & bgcolor & ">" & vbCrlf
  For i = vbSunday To vbSaturday 
     Response.Write  "<TD><Font Size='-2'>" & left(WeekDayName(i), 3) & "</Font></TD>" & vbCrlf
  Next
  Response.Write "</TR>" & vbCrlf

  '## Set dDay to the First day of the month ##
  dDay = DateSerial(yYear,mMonth,1)

  FOR j=1 to 6

 	Response.Write "<TR>" & vbCrlf

	    FOR i=vbSunday to vbSaturday
  	      CellStr="<Font size=-3></Font>" 
	      Color=cellcolor

	      If WeekDay(dDay) = i and Month(dDay) = mMonth then 

		  '## Set Color to Yellow if Current Day
	          if (Day(dDay) = Day(now)) and (Month(dDay) = Month(now)) and (Year(dDay) = Year(now)) then Color="Yellow"

        	  CellStr = "<acronym title=""Modifica il Giorno""><Font size=-2>" &  Day(dDay)  & "</Font></acronym>
"

		  	  '## Get the Memo Field out of Database for current Date
			  Memo = GetCellData(dDay)
		          IF Memo <> "" then 	
   			     '## Format Cell String if there is a Memo ##	
			      CellStr ="<acronym title=""Modifica il Giorno""><Font size=-2>" &  Day(dDay)  & "</Font></acronym>
"  &  "<a href=#" & dDay & ">[img] & ViewDayImage & [/img]</a>"
	
			     '## Save Calendar Details to Print After the Calendar is Displayed ##
		 	      Details = Details & "<Table Align=center width=" & TableWidth & "  cellspacing=2 cellpadding=3 border=0>"  & vbCrlf
			      Details = Details & "<TR>" & vbCrlf
			      Details = Details & " <TD width=" & TableWidth-10 & " bgcolor='" & Bgcolor & "'>" & vbCrlf
	        	      Details = Details & "  <a name='" & dDay & "'><Font Size=-1>" & Ucase(WeekDayName(weekday(dDay))) & " " & Ucase(MonthName(Month(dDay))) & " " & Day(dDay) & " , " & Year(dDay)  & "</Font>" & vbCrlf
			      Details = Details & " </TD>" & vbCrlf
		              Details = Details & " <TD Align=right bgcolor='" & BgColor & "'>" & vbCrlf
		              Details = Details & "" & EditImage & "" 
			      Details = Details & "" & DeleteImage & ""  
	       	              Details = Details & "<a href=#top>" & ToTopImage & "</a>" 
			      Details = Details & " </TD>" & vbCrlf
		              Details = Details & "</TR>" & vbCrlf
			      Details = Details & "</Table>" & vbCrlf
		   	      Details = Details & "<Table Align=center width=" & TableWidth & "  cellspacing=2 cellpadding=3 border=0>"  & vbCrlf
			      Details = Details & "<TR>" & vbCrlf
			      Details = Details & " <TD bgcolor='" & color & "'>" & vbCrlf
	        	      Details = Details & "  <PRE><Font Face=arial>" & Memo &  "</Font></PRE>" &  vbCrlf
			      Details = Details & " </TD>" & vbCrlf
		              Details = Details & "</TR>" & vbCrlf
			      Details = Details & "</Table>" & vbCrlf
			     '## End Calendar Details ##
        		  End If
	
        	 '## Get the Next Day 
	          dDay = DateAdd("d",1,dDay)

	      End If

	      Response.Write "<TD vAlign=top align=left BgColor='" & Color & "'>"  & CellStr & "</TD>" & vbCrlf
	    NEXT   '## FOR i=vbSunday to vbSaturday ##

   	Response.Write "</TR>" & vbCrlf

  NEXT  '## For j=1 to 6 ##

  Response.Write "</Table>" & vbCrlf

  '## Display the Months at the bottom of the calendar ##
  CALL DisplayMonths()

  '## Display the Calendar Details ##
  Response.write  "
" & Details & "

"

  For i=1 to 20
     Response.write "
"
  Next

End Sub
avevo trovato anche questo tutorial ma non riesco a metterlo in pratica!:
PlEaSE HElPme!!!