<%
Private sub Calendario (MeseNum , Anno)

  dim DayAttuale , DataInizio , DayX , CounterDay , Week

%>
  <table border=1  bgcolor=SlateBlue>
    <!-- creazione riga con iniziali dei giorni della settimana -->
   <tr>
    <td><font size=4 color=Crimson >L</font></td>
    <td><font size=4 color=Crimson >M</font></td>
    <td><font size=4 color=Crimson >M</font></td>
    <td><font size=4 color=Crimson >G</font></td>
    <td><font size=4 color=Crimson >V</font></td>
    <td><font size=4 color=Crimson >S</font></td>
    <td><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 bgcolor='#2f2f2f' align=center>")
          Response.Write(" <font size=4 color=Yellow>")
          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()) )

%>