:: FILOWEB.it: Creare un calendario in ASP

 
		<%@LANGUAGE = VBScript%>

<html>

    <head>

        <title>Un calendario in ASP</title>

        <style>

            td { font: Normal 10px Verdana; }

        </style>

    </head>

<body>



    <%

    '  Determina l' intestazione del box, mese e anno

    Dim intestazione

    '  Determina il giorno del mese

    Dim gg_mese

    '  Determina il giorno della settimana

    Dim gg_sett

    '  Determina il giorno, il mese e l' anno correnti

    Dim gg, mm, aa

    '  Determina il primo giorno del mese

    Dim primo

    '  Determina l' ultimo giorno del mese

    Dim ultimo

    '  Colore di sfondo per il giorno corrente

    Dim colore_gg



    intestazione = UCase(MonthName(Month(Date()))) & "  "  & Year(Date())

    gg_mese = " 01/"  & Month(Date()) & " /"  & Year(Date())

    gg = 1

%>

<table bgcolor=" #FFFFFF"  align=" center"  cellpadding=" 5"  

    cellspacing=" 0"  border=" 1"  bordercolor=" #CCCCCC" >

    <tr>

        <td align=" center"  colspan=" 7"  bgcolor=" #EEEEEE" >

        <b><%=intestazione%></b></td></tr>

        <tr bgcolor=" #FFFFCC" >

            <td align=" center" ><b>D</b></td>

            <td align=" center" ><b>L</b></td>

            <td align=" center" ><b>M</b></td>

            <td align=" center" ><b>M</b></td>

            <td align=" center" ><b>G</b></td>

            <td align=" center" ><b>V</b></td>

            <td align=" center" ><b>S</b></td>

        </tr>

    <%

        '  Verifico se il mese il corso è Dicembre...

        '  in questo caso imposto il mese successivo a Gennaio dell' anno successivo

        '  in caso contrario imposto mese ed anno alla data attuale

        If (Month(Date()) + 1) > 12 Then 

            mm = 1

            aa = Year(Date()) + 1

        Else

            mm = (Month(Date()) + 1)

            aa = Year(Date())

        End if



        '  Calcolo il primo giorno del mese

        primo = " 01"  & " /"  & mm & " /"  & aa



        '  Calcolo l' ultimo giorno del mese

        ultimo = DateAdd(" d" , -1, primo)



        '  Creo dinamicamente la tabella ciclando i giorni

        '  ed interrompendo i cicli in funzione del fatto

        '  che il mese sia ancora in corso o meno

        '  e li associo al giorno della settimana corrispondente

        While (gg < Day(ultimo))

    %>

        <tr>

    <%

            gg_sett = WeekDay(gg_mese)

            For i = 1 To gg_sett - 1

    %>

        <td align=" center" > </td>

    <%

            Next

            For i = gg_sett To 7

                '  Imposto il colore di sfondo del giorno corrente

                If gg = Day(Date()) Then

                    colore_gg = " #FFCCCC" 

                Else

                    colore_gg = " #FFFFFF" 

                End If

    %>

        <td align=" center"  bgcolor=" <%=colore_gg%>" ><%=gg%></td>

    <%

                gg = gg + 1

                If gg > Day(ultimo) Then Exit For

            Next

            For i = i + 1 To 7

    %>

        <td align=" center" > </td>

    <<%

            Next

    %>

        </tr>

    <%

            gg_mese = gg & " /"  & Month(Date()) & " /"  & Year(Date()) 

        Wend

    %>

</table>



</body>

</html>