ho trovato questo script di Luca Rugiero in rete.

come si può fare per modificarlo nel senso di dare la possibilità di far scorrere i mesi all' utente?

codice:
<%@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">
        <%=intestazione%></td></tr>
        <tr bgcolor="#FFFFCC">
            <td align="center">D</td>
            <td align="center">L</td>
            <td align="center">M</td>
            <td align="center">M</td>
            <td align="center">G</td>
            <td align="center">V</td>
            <td align="center">S</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>