inizio settima calendario

[gguida]

Ciao a tutti,
ho utilizzato il seguente script per un calendario eventi, l'unico problema comincia da DOMENICA. come posso far si che inizia in modo clasico cioè da LUNEDI?

Grazie

<TABLE cellSpacing=0 cellPadding=0 width=194 bgColor=#f5f5f6 border=0>
                          <TBODY>
                            <TR>
                              <TD align="center" valign="middle" bgcolor="#2473CF" class="txpic">
							  [img]images/shim.gif[/img] Clicca sul giorno 
						      </TD>
                            </TR>
                            <TR>
                              <TD width="194" align="center" valign="middle" bgcolor="#2473CF"><div align="center">
 						 
 <%
Function GetMonthName(Mesi)
Select Case Mesi
		 Case 1: GetMonthName="Gennaio"
                 Case 2: GetMonthName="Febbraio"
                 Case 3: GetMonthName="Marzo"
		 Case 4: GetMonthName="Aprile"
                 Case 5: GetMonthName="Maggio"
                 Case 6: GetMonthName="Giugno"
                 Case 7: GetMonthName="Luglio"
                 Case 8: GetMonthName="Agosto"
                 Case 9: GetMonthName="Settembre"
                 Case 10: GetMonthName="Ottobre"
                 Case 11: GetMonthName="Novembre"
                 Case 12: GetMonthName="Dicembre"
                 Case Else:
                 GetMonthName="**Mese Errato**"
End Select
End Function

Dim dataCorrente
dataCorrente = Request("Date")

If Len(dataCorrente) = 0 then
dataCorrente = Date()
end if


Dim aCalendarDays(42)
Dim iFirstWeekday
iFirstWeekday = DatePart("w" ,DateSerial(Year(dataCorrente), Month(dataCorrente),1))

Dim iDaysInMonth
iDaysInMonth = DatePart("d" ,DateSerial(Year(dataCorrente), Month(dataCorrente)+ 1, 1-1))

Dim iLoop
For iLoop = 1 to iDaysInMonth
aCalendarDays(iLoop + iFirstWeekday - 1) = iLoop
Next
Dim iColumns , iRows
iColumns = 7
iRows = 6 - Int((42 -(iFirstWeekDay + iDaysInMonth)) / 7)

Dim strPrevMonth, strNextMonth
strPrevMonth = Server.URLEncode(DateAdd("m", - 1, dataCorrente))
strNextMonth = Server.URLEncode(DateAdd("m", 1, dataCorrente))
%>


<link href="css/ac.css" rel="stylesheet" type="text/css">

<table align="center" border="2" cellspacing="1" width="170"  cellpadding="0" class="testoca">
  <tr>
<th>
<
</th>
<th colspan="5" class="txverdana">

<%
response.write  GetMonthName(Month(dataCorrente))
response.write " " & Year(dataCorrente)
%>

</th>
<th>
>
</th>
</tr>
<%
anno=Year(dataCorrente)
mese=Month(dataCorrente)
response.write ("<tr align='center' class='testoca'><td>D</td><td>L</td><td>M</td><td>M</td><td>G</td><td>V</td><td>S</td></tr>")
Dim iRowsLoop, iColumnsLoop
for iRowsLoop = 1 to iRows
response.write "<tr>"
for iColumnsLoop = 1 to iColumns
set rs = cn.Execute("SELECT * FROM eventi WHERE gg = '" & aCalendarDays((iRowsLoop-1)* 7 + iColumnsLoop) & "' AND mm = '" & mese & "' AND aa = '" & anno & "' ")
if Not rs.EOF then
if aCalendarDays((iRowsLoop-1)*7 + iColumnsLoop) > 0 then
response.write "<td valign=""center"" bgcolor=""#FFFFFF"" align=""center"" width=""10%"" class""testoca"">"
response.write "" & giorno &"<div class""testoca"">"&aCalendarDays((iRowsLoop-1)* 7 + iColumnsLoop)&"</div>"
response.write "</td>"
else
response.write "<td valign=""center"" align=""center"" width=""10%"" class=""testoca"">-</td>"
end if
else
if aCalendarDays((iRowsLoop-1)*7 + iColumnsLoop) > 0 then
response.write "<td valign=""center"" align=""center"" width=""10%"" class""testoca"">"
response.write aCalendarDays((iRowsLoop-1)* 7 + iColumnsLoop)
response.write "</td>"
else
response.write "<td valign=""center"" align=""center"" width=""10%"" class=""testoca""> -</td>"
end if
end if
next
response.write "</tr>"
next
cn.Close
set cn = nothing
%>
</table>

<center>
  <form  action="index.asp#calendario" method=get class="searchsu">
   
        <select size="1" name="Date">
          <option value="<%=DateSerial(Year(dataCorrente),1 , 1)%>"
<% if Month(dataCorrente) = 1 then response.write "selected" %> class="searchsu">Gennaio</option>
          <option value="<%=DateSerial(Year(dataCorrente),2 , 1)%>"
<% if Month(dataCorrente) = 2 then response.write "selected" %> class="searchsu">Febbraio</option>
          <option value="<%=DateSerial(Year(dataCorrente),3 , 1)%>"
<% if Month(dataCorrente) = 3 then response.write "selected" %> class="searchsu">Marzo</option>
          <option value="<%=DateSerial(Year(dataCorrente),4 , 1)%>"
<% if Month(dataCorrente) = 4 then response.write "selected" %> class="searchsu">Aprile</option>
          <option value="<%=DateSerial(Year(dataCorrente),5 , 1)%>"
<% if Month(dataCorrente) = 5 then response.write "selected" %> class="searchsu">Maggio</option>
          <option value="<%=DateSerial(Year(dataCorrente),6 , 1)%>"
<% if Month(dataCorrente) = 6 then response.write "selected" %> class="searchsu">Giugno</option>
          <option value="<%=DateSerial(Year(dataCorrente),7 , 1)%>"
<% if Month(dataCorrente) = 7 then response.write "selected" %> class="searchsu">Luglio</option>
          <option value="<%=DateSerial(Year(dataCorrente),8 , 1)%>"
<% if Month(dataCorrente) = 8 then response.write "selected" %> class="searchsu">Agosto</option>
    
      <option value="<%=DateSerial(Year(dataCorrente),9 , 1)%>"
<% if Month(dataCorrente) = 9 then response.write "selected" %> class="searchsu">Settembre</option>
          <option value="<%=DateSerial(Year(dataCorrente),10 , 1)%>"
<% if Month(dataCorrente) = 10 then response.write "selected" %> class="searchsu">Ottobre</option>
          <option value="<%=DateSerial(Year(dataCorrente),11 , 1)%>"
<% if Month(dataCorrente) = 11 then response.write "selected" %> class="searchsu">Novembre</option>
          <option value="<%=DateSerial(Year(dataCorrente),12 , 1)%>"
<% if Month(dataCorrente) = 12 then response.write "selected" %> class="searchsu">Dicembre</option>
        </select>
        


          <input type=submit class="searchsu" value="Vai al Mese"  >
      
    </form>
</center>

                              </div></TD>
                            </TR>
                            <TR>
                              <TD align=center valign="middle" bgcolor="#2473CF"><div align="center">.:: Tutti Gli Eventi ::.</div></TD>
                            </TR>
                          </TBODY>
                        </TABLE>

[fraude]

Da sempre le settimane iniziano dalla domenica...

[optime]

Originariamente inviato da fraude
Da sempre le settimane iniziano dalla domenica...

che mondo... manco riusciamo a metterci d'accordo su quale è il primo GGiorno della settimana...

[fraude]

Originariamente inviato da optime
che mondo... manco riusciamo a metterci d'accordo su quale è il primo GGiorno della settimana...

Già è vero...

... Se per il calendario liturgico dei cristiani la domenica è il primo giorno della settimana (così come per gli ebrei: infatti per la Bibbia l'ultimo giorno è il sabato), ai fini civili viene generalmente considerato come primo giorno il lunedì, anche perché la norma ISO (International Organization for Standardization) IS-8601 stabilisce che sia così. Di fatto, mentre nella maggior parte delle nazioni viene considerato primo giorno il lunedì, in altre (come in Russia) viene ritenuto come primo giorno la domenica...

[gguida]

ok avete ragione....ma come posso modificare questo script perchè inizi con LUNEDì

Grazie

[optime]

senza scomodare la russia, basti dire che la domenica è il primo giorno della settimana per gli anglosassoni. e siccome nel campo IT comandano loro... (vedi MMDDYYYY invece di DDMMYYY o 1,234.56 invece di 1.234,56...)