ciao a tutti,
ho un problema su un calendario che mi scrive i nomi dei mesi solo in italiano. Avendo il sito diviso in due lingue italiano e inglese dovrei far scrivere i nomi dei mesi nella lingua corretta.
Se cambio LCID da italiano 1040 a Inglese, mi cambia anche la formattazione della data (ovviamente) e lo script che genera il calendario va nei pazzi. c'è un sistema per fargli scrivere i nomi dei mesi nella lingua corretta senza stravolgere il tutto?
Funzione calendario
<%
If Request("data") ="" then
data = Date()
else
data = CDate(Request("data"))
end if
mese = Month(data)
anno = Year(data)
function giornidelmese(mese, anno)
DataInizio = CDate("01/" & mese & "/" & anno)
DataFine = DateAdd("m", 1, DataInizio)
giornidelmese = DateDiff("d", DataInizio, DataFine)
end function
%>
calendario
<table cellpadding="0" cellspacing="0" width="150" class="title" style="border: 1px solid #FF6600">
<tr>
<td align="left" bgcolor="#FFFFFF">
&language=<%=language%>"><</td>
<td colspan="5" align="center" bgcolor="#FFFFFF"><%= MonthName(Month(data)) & " " & Year(data)%></td>
<td align="righ" bgcolor="#FFFFFF">
&language=<%=language%>">></td>
</tr>
<tr bgcolor="#C0C0C0"><td align="center"><%= dom %></td><td align="center"><%= lun %></td><td align="center"><%= mar %></td><td align="center"><%= mer%></td>
<td align="center"><%= gio %></td><td align="center"><%= ven %></td><td align="center"><%= sab %></td></tr>
<%
DataInizio = CDate("01/" & mese & "/" & anno)
for i = 1 to WeekDay(DataInizio)-1
if i = 1 then Response.Write "<tr>"
Response.write "<td bgcolor=gray> </td>"
next
for i = 1 to giornidelmese(mese,anno)
data = Cdate(( i & "/" & mese & "/" & anno))
if WeekDay(data) = 1 then Response.Write "<tr>"
%><td align="center" bgcolor="#ffffff" <%IF I = day(date) then
response.write " class='cerchio'"
end if%> >
&language=<%=language %>&page=', '', 'toolbar=1,width=375,height=420,scrollbars=1') "> <%= i %> </td>
<% if WeekDay(data) = 7 then Response.Write "</tr>"
next
' saltiamo primi giorni della settimana
for j = WeekDay(Data)+1 to 7
Response.write "<td bgcolor=gray> </td>"
if j mod 7 = 0 then Response.Write "</tr>" : exit for
next
%>
</table>
Rispondi quotando
