Buongiorno a tutti,
ho un problema con questo calendario: vorrei che l'ultimo giorno visibile sia tra 14 giorni e non fine mese.
---
questo è il codice:
<%
oggi=day(date())
oggin=WeekDay(date())
oggidata=day(date()) & "/" & month(date()) & "/" & year(date())
response.write ("<table width='190' border='0' cellspacing='0' cellpadding='0' class='txtCalendar'>")
response.write ("<tr height='22'><td width='27' align='center' valign='middle'>D</td><td width='27' align='center' valign='middle'>L</td><td width='27' align='center' valign='middle'>M</td><td width='27' align='center' valign='middle'>M</td><td width='27' align='center' valign='middle'>G</td><td width='27' align='center' valign='middle'>V</td><td width='28' align='center' valign='middle'>S</td></tr>")
giornodelmese="01/" & month(date()) & "/" & year(date())
giorno=oggi
'-- controllo per il mese di dicembre
if (month(date())+1)>12 then
anno=Year(date())+1
mese=1
else
anno=Year(date())
mese=(month(date())+1)
end if
'--
primodelmesesuccessivo="01" & "/" & mese & "/" & anno
ultimodelmese=DateAdd("d",-1,primodelmesesuccessivo)
While (giorno<day(ultimodelmese))
response.write ("<tr height='30'>")
if giorno=oggi then
giornodellaset=WeekDay(oggin)
else
giornodellaset=WeekDay(giornodelmese)
end if
for i=1 to giornodellaset-1
response.write ("<td width='27' align='center'> </td>")
next
for i=giornodellaset to 7
if giorno=oggi then
response.write ("<td width='27' bgcolor='#FFFFFF' align='center' class='txtCalendarOver'>" & giorno & "</td>")
else
response.write ("<td width='27' align='center'>" & giorno & "</td>")
end if
giorno=giorno+1
if giorno>day(ultimodelmese) then exit for
next
for i=i+1 to 7
response.write ("<td width='27' align='center'> </td>")
next
response.write ("</tr>")
giornodelmese=(giorno) & "/" & month(date()) & "/" & year(date())
Wend
response.write ("</table>")
%>
---
Come posso fare?
grazie.

Rispondi quotando