inizio e fine calendario

[bedo]

Ciao a tutti,

come posso modificare questo calendario in modo tale che il primo giorno visualizzato sia la data odierna e l'ultimo sia tra 14 giorni?

---
<%
Giorno = day(now)
Mese = month(now)
Anno = year(now)

MeseNow = month(now)
%>
<table border="1" cellpadding="0" cellspacing="0" style="border-collapse: collapse" bordercolor="#FFFFFF" width="100%">
<%
'creo la data iniziale del mese
DataInizio= "01/" & Mese & "/" & Anno
Mese = DatePart("M",DataInizio)


'inizializzo il contatore dei giorni del mese
CounterDay = 1
'ciclo scansione settimane
for Week=0 to 5
Response.Write("<tr>")
'ciclo che scandisce i giorni della settimana
for DayX = 1 to 7
DayAttuale=Datepart("w",DataInizio,2)
'2 indica che Lunedi
if DayAttuale = DayX then
if Mese=Month(DataInizio) then
%>

<%
'generazione cella calendario
if CounterDay = Giorno and Mese = Mese then
' Coloro la cella per data odierna
Response.Write ("<td width='100' height='100' style='padding: 0' valign='top' bgcolor='#6098D0'>")
Response.Write ("<font face='Verdana' size='2' color='#FFFFFF'><center>" & CounterDay & "</center></font>")
Response.Write ("
")
else
Response.Write("<td width='100' height='100' style='padding: 0' valign='top' bgcolor='#EFF3F6'>")
Response.Write ("<font face='Verdana' size='2' color='#336699'><center>" & CounterDay & "</center></font>")
Response.Write ("
")
end if
%>

<%
'Chiudo la cella del calendario
Response.Write ("</td>")
%>

<%
'Continuo con un altro giorno

DataInizio=dateadd("d",1,DataInizio)
CounterDay=CounterDay+1
else
'se il mese del giorno non e uguale a quello
'attuale allora il calendario h terminato esco
'dal ciclo ponendo Week = 5
Week=5
end if
else
'se il giorno non fa parte del mese
'attuale stampo una cella vuota
Response.Write("<td width='100' height='100'>&amp;nbsp;</td>")
end if
next
%>

<%
'Chiudo la settimana
Response.Write("</tr>")
next
%>

<%
'Chiudo il calendario
Response.Write("</tr>")
Response.Write("</table>")
%>
---

[bedo]

Con questa modifica riesco a far partire il calendario dalla data odierna ma come si fa a farlo terminare tra 14 giorni?

---
<%
Giorno = day(now)
Mese = month(now)
Anno = year(now)

Response.Write ("<table border='1' cellpadding='0' cellspacing='0' width='100%'>")

'creo la data iniziale del mese
DataInizio= Giorno & "/" & Mese & "/" & Anno
Mese = DatePart("M",DataInizio)

'inizializzo il contatore dei giorni del mese
CounterDay = giorno

'ciclo scansione settimane
for Week=0 to 5
Response.Write("<tr>")

'ciclo che scandisce i giorni della settimana
for DayX = 1 to 7
DayAttuale=Datepart("w",DataInizio,2)'2 indica che Lunedi

if DayAttuale = DayX then
if Mese=Month(DataInizio) then

'generazione cella calendario
if CounterDay = Giorno and Mese = Mese then

' Coloro la cella per data odierna
Response.Write ("<td width='100' height='100' style='padding: 0' valign='top' bgcolor='#6098D0'>")
Response.Write ("<font face='Verdana' size='2' color='#FFFFFF'><center>" & CounterDay & "</center></font>")
Response.Write ("
")
else
Response.Write("<td width='100' height='100' style='padding: 0' valign='top' bgcolor='#EFF3F6'>")
Response.Write ("<font face='Verdana' size='2' color='#336699'><center>" & CounterDay & "</center></font>")
Response.Write ("
")
end if

'Chiudo la cella del calendario
Response.Write ("</td>")

'Continuo con un altro giorno
DataInizio=dateadd("d",1,DataInizio)
CounterDay=CounterDay+1
else

'se il mese del giorno non e uguale a quello attuale allora il calendario ha terminato esco dal ciclo ponendo Week = 5
Week=5
end if
else

'se il giorno non fa parte del mese
'attuale stampo una cella vuota
Response.Write("<td width='100' height='100'>&amp;nbsp;</td>")
end if
next

'Chiudo la settimana
Response.Write("</tr>")
next

'Chiudo il calendario
Response.Write("</tr>")
Response.Write("</table>")
%>
---

[FreeSoul]

sommi 14 alla data odierna e quindi hai il parametro di confronto per il fine ciclo

[bedo]

i giorni sommati però diventano (ad esempio per Gennaio) 32, 33, 34 non tiene conto del fine mese corrente e inizio mese successivo

[FreeSoul]

tu devi sommare l'intera data (che poi andrai a scomporre)

oggi=date()

tra_14_gg=date()+13

[bedo]

Se io ho questo codice, come visualizzo i giorni che vanno da inizio a fine

<%
inizio = date() --> 31/01/2005
fine = date()+13 --> 13/02/2005
%>

[FreeSoul]

... un po' di fantasia ...

al massimo puoi usare un ciclo for next per 14 volte
ogni passo prendi la data risultante e la lavori

una volta che sai il punto d'inizio e quello di fine puoi giocartela come meglio ti aggrada

[bedo]

grazie.