:: FILOWEB.it: fare un calendario con asp

 
		<%

Session.LCID = 1040



'  se non passiamo nessun valore parte dalla data odierna

If Request(" data" ) =" "  then

  data = Date()

else

  data = CDate(Request(" data" ))

end if



mese = Month(data)

anno = Year(data)



'  conta il numero di giorni in un mese

function giornidelmese(mese, anno)

  DataInizio = CDate(" 01/"  & mese & " /"  & anno)

  DataFine = DateAdd(" m" , 1, DataInizio)

  giornidelmese = DateDiff(" d" , DataInizio, DataFine)

end function



%>

<table border=" 1"  cellpadding=" 0"  cellspacing=" 0"  bordercolor=red width=" 300" >

<tr>

<td><a href=" calendar.asp?data=<%=DateAdd(" m" , -1, data)%>

" ><</td>

<td colspan=" 5"  align=" center" ><%=MonthName(Month(data)) & "  "  & Year(data)%></td>



<td align=" righ" ><a href=" calendar.asp?data=<%=DateAdd(" m" , 1, data)%>

" >></td>

</tr>

<tr bgcolor=" #C0C0C0" ><td>D</td><td>L</td><td>M</td><td>M</td>

<td>G</td><td>V</td><td>S</td></tr>

<%

DataInizio = CDate(" 01/"  & mese & " /"  & anno)



'  saltiamo primi giorni della settimana

for i = 1 to WeekDay(DataInizio)-1

  if i = 1 then Response.Write " <tr>" 

  Response.write " <td bgcolor=gray> </td>" 

next



' mostriamo il calendario

for i = 1 to giornidelmese(mese,anno)

  data = Cdate(( i & " /"  & mese & " /"  & anno))

  if WeekDay(data) = 1 then Response.Write " <tr>" 

  Response.Write(" <td align=" " center" " >"  & i & " </td>" )

  if WeekDay(data) = 7 then Response.Write " </tr>" 

next



'  saltiamo primi giorni della settimana

for j = WeekDay(Data)+1 to 7

  Response.write " <td bgcolor=gray> </td>" 

  if j mod 7 = 0 then Response.Write " </tr>"  : exit for

next





%>

</table>