Un semplice calendario che visualizza tutti i giorni del mese corrente.

Eccovi il codice:

<% 
Private sub Calendario (MeseNum , Anno) 

   dim DayAttuale , DataInizio , DayX , CounterDay , Week 

%>
   <table border=1 style="background-color: #EEEEEE; border: 1 solid #808080"> 
     <!--  creazione riga con iniziali dei giorni della settimana -->    <tr> 
     <td style="border: 1 solid #808080"><font size=4 color=Crimson >L</font></td> 
     <td style="border: 1 solid #808080"><font size=4 color=Crimson >M</font></td> 
     <td style="border: 1 solid #808080"><font size=4 color=Crimson >M</font></td> 
     <td style="border: 1 solid #808080"><font size=4 color=Crimson >G</font></td> 
     <td style="border: 1 solid #808080"><font size=4 color=Crimson >V</font></td> 
     <td style="border: 1 solid #808080"><font size=4 color=Crimson >S</font></td> 
     <td style="border: 1 solid #808080"><font size=4 color=Crimson >D</font></td> 
    </tr> 
   <% 
   'creo la data iniziale del mese 
   DataInizio="01/" & MeseNum & "/" & Anno 

   '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 MeseNum=Month(DataInizio) then 
           'generazione cella calendario 
           Response.Write("<td style=""border: 1 solid #808080"" bgcolor='#ffffff' align=center>") 
           Response.Write(" <font size=4 color=green>") 
           Response.Write( CounterDay) 
           Response.Write(" </font>") 
           Response.Write("</td>") 

           DataInizio=dateadd("d",1,DataInizio) 
           CounterDay=CounterDay+1 
         else 
           'se il mese del giorno non è uguale a quello 
           'attuale allora il calendario è 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></td>") 
       end if 
     next 
     Response.Write("</tr>") 
   next 

   Response.Write("</table>") 

end sub 

call Calendario( Month(Now()), Year(Now()) ) 

%>
</table>

meteo, pele, free, van basten, immagini, sorpassi, download, shumacher, programmazione, animali, scarica, programmare, natura, formula1, macchine sportive, cap, script, senna, incidenti, auto