ho creato un semplice calendario eventi...
ho un problema di date però:
in poche parole la data iniziale che formatto in aaaa/mm/dd
subisce un dateadd che la riconferte in formato dd/mm/aaaa
in questo modo legge el date in modo errato ottenendo per #02/09/2006# un valore data del 09/feb/2006
di seguito il codice:
<BODY onload="focus()">
<%
Giorno = day(now)
Mese = month(now)
Anno = year(now)
MeseNow = month(now)
'creo la data iniziale del mese
DataInizio1= (year(Datainizio) & "/"& month(Datainizio) & "/" & day(Datainizio))
response.write Datainizio1
Mese = DatePart("M",Datainizio1)
%>
<table border="1" cellpadding="0" cellspacing="0" style="border-collapse: collapse" bordercolor="#FFFFFF" width="100%">
<tr>
<td style="padding:2px;" ALIGN="center" colspan="7" bordercolor="#D4DDFF" bgcolor="#D4DDFF">
<font face="Tahoma" style="font-size: 90%; font-weight:700; text-transform:capitalize" color="#000080"><%=MonthName(month(Datainizio1),0) %></font></td>
</tr>
<tr>
<td id="stile1" align="center">Lun
</td>
<td id="stile1" align="center">Mar
</td>
<td id="stile1" align="center">Mer
</td>
<td id="stile1" align="center" width="141">Gio</td>
<td id="stile1" align="center" width="141">Ven</td>
<td id="stile1" align="center" width="141">Sab</td>
<td id="stile1" align="center" width="141">Dom</td>
</tr>
<%
'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",Datainizio1,2)
'2 indica che Lunedi
if DayAttuale = DayX then
if Mese=Month(Datainizio1) then
%>
<%
Set rs = Server.CreateObject("ADODB.recordset")
SQL="SELECT Count(tab3.Cod) AS totale_pta, tab3.Id, pren3.pta "&_
"FROM mia_tab INNER JOIN mia_tab1 ON pren3.id = partenze.id_ogg "&_
"WHERE pren3.Idop=1 AND tab3.pta=#"&(Datainizio1)&"# "&_
"GROUP BY tab3.Id, tab3.pta "
rs.open SQL, conn
if rs.eof then
%>
<td align="center" id="stile2" style="height: 20px" width="140" >
<%=CounterDay%>
<%
else
%>
<td align="center" id="stile3" style="height: 20px" width="140">
<%=CounterDay%>
<%
end if
%></td>
<%
'Continuo con un altro giorno
Datainizio1=dateadd("d",1,Datainizio1)
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
%>
<td width='140' height='20' bgcolor='#EFF3F6'></td>
<%
end if
next
%><%
'Chiudo la settimana
Response.Write("</tr>")
next
%><%
'Chiudo il calendario
Response.Write("</tr>")
Response.Write("</table>")
%>
scusate l'html...
ma ho preferito postarvelo integralmente
Rispondi quotando
