Ciao a tutti..ho un problema con un calendario.. Vorrei che mi si visualizzasse non soltanto il calendario del mese corrente ma uno sotto l'altro il calendario di tutti i mesi di quest'anno.
Ho questo script ma non riesco a far corrispondere i giorni giusti ad ogni mese.
<%
Dim DataCorrente
anno=2005
Dim GiorniCalendario(42)
for mese=1 to 12 step 1
giorno=1
anno=2005
DataCorrente = giorno &"/"& mese &"/" &anno
Dim PrimoGiornoMese
PrimoGiornoMese = DatePart("w", DateSerial(Year(DataCorrente), Month(DataCorrente),0))
Dim GiorniNelMese
GiorniNelMese = DatePart("d", DateSerial(Year(DataCorrente), Month(DataCorrente)+1, 1-1))
dim iLoop
For iLoop = 1 to GiorniNelMese
GiorniCalendario(iLoop + PrimoGiornoMese - 1) = iLoop
Next
Dim iColonne, iRighe
iColonne = 7
iRighe= 6 - int((42 - (PrimoGiornoMese + GiorniNelMese)) / 7)
%>
<table width="420">
<tr bgcolor="#FF9C00"><td colspan="7" align="left" class="titolobianco">
<%
response.write calcolanomemese(Month(DataCorrente))
response.write " - " & Year(DataCorrente)
%>
</td></tr>
<tr align="center" bgcolor="#FFCC00" height="15" class="testobiancobold"><td>Lunedi</td><td>Martedi</td><td>Mercoledi</td><td>Giovedi</td><td>Venerdi</td><td>Sabato</td><td>Domenica</td></tr>
<%
Dim iRigheLoop, iColonneLoop
For iRigheLoop = 1 to iRighe
response.write "<tr bgcolor='#E6E6E6'>"
For iColonneLoop = 1 to iColonne
if GiorniCalendario((iRigheLoop-1)*7 + iColonneLoop) > 0 then
response.write "<td bgcolor=""#FFCC00""onMouseOver=""this.bgColor='#b3 b3b3';"" onMouseOut=""this.bgColor='#FFCC00';"" valign=top>"
response.write GiorniCalendario((iRigheLoop-1)*7 + iColonneLoop)&"
"
else
response.write "<td bgcolor=""#ccCC00""onMouseOver=""this.bgColor='#b3 b3b3';"" onMouseOut=""this.bgColor='#ccCC00';"" valign=top>"
end if
Next
response.write "</tr>"
Next
%>
</table>
<%
next%>
Dov'è l'errore??
Grazie a tutti...
Rispondi quotando
