Как сделать календарь?

<%
'' ***Begin Function Declaration***
'' New and improved GetDaysInMonth implementation.
'' Thanks to Florent Renucci for pointing out that I
'' could easily use the same method I used for the
'' revised GetWeekdayMonthStartsOn function.
Function GetDaysInMonth(iMonth, iYear)
    Dim dTemp
    dTemp = DateAdd('d', -1, DateSerial(iYear, iMonth + 1, 1))
    GetDaysInMonth = Day(dTemp)
End Function
 
'' Previous implementation on GetDaysInMonth
''Function GetDaysInMonth(iMonth, iYear)
''  Select Case iMonth
''      Case 1, 3, 5, 7, 8, 10, 12
''          GetDaysInMonth = 31
''      Case 4, 6, 9, 11
''          GetDaysInMonth = 30
''      Case 2
''          If IsDate('February 29, ' & iYear) Then
''              GetDaysInMonth = 29
''          Else
''              GetDaysInMonth = 28
''          End If
''  End Select
''End Function
 
Function GetWeekdayMonthStartsOn(dAnyDayInTheMonth)
    Dim dTemp
    dTemp = DateAdd('d', -(Day(dAnyDayInTheMonth) - 1), dAnyDayInTheMonth)
    GetWeekdayMonthStartsOn = WeekDay(dTemp)
End Function
 
Function SubtractOneMonth(dDate)
    SubtractOneMonth = DateAdd('m', -1, dDate)
End Function
 
Function AddOneMonth(dDate)
    AddOneMonth = DateAdd('m', 1, dDate)
End Function
'' ***End Function Declaration***
 
 
Dim dDate     '' Date we''re displaying calendar for
Dim iDIM      '' Days In Month
Dim iDOW      '' Day Of Week that month starts on
Dim iCurrent  '' Variable we use to hold current day of month as we write table
Dim iPosition '' Variable we use to hold current position in table
 
 
'' Get selected date.  There are two ways to do this.
'' First check if we were passed a full date in RQS('date').
'' If so use it, if not look for seperate variables, putting them togeter into a date.
'' Lastly check if the date is valid...if not use today
If IsDate(Request.QueryString('date')) Then
    dDate = CDate(Request.QueryString('date'))
Else
    If IsDate(Request.QueryString('month') & '-' & Request.QueryString('day') & '-' & Request.QueryString('year')) Then
        dDate = CDate(Request.QueryString('month') & '-' & Request.QueryString('day') & '-' & Request.QueryString('year'))
    Else
        dDate = Date()
        '' The annoyingly bad solution for those of you running IIS3
        If Len(Request.QueryString('month')) <> 0 Or Len(Request.QueryString('day')) <> 0 Or Len(Request.QueryString('year')) <> 0 Or Len(Request.QueryString('date')) <> 0 Then
            Response.Write 'The date you picked was not a valid date.  The calendar was set to today''s date.
 
'
        End If
        '' The elegant solution for those of you running IIS4
        ''If Request.QueryString.Count <> 0 Then Response.Write 'The date you picked was not a valid date.  The calendar was set to today''s date.
 
'
    End If
End If
 
''Now we''ve got the date.  Now get Days in the choosen month and the day of the week it starts on.
iDIM = GetDaysInMonth(Month(dDate), Year(dDate))
iDOW = GetWeekdayMonthStartsOn(dDate)
 
%>
<!-- Outer Table is simply to get the pretty border-->
<TABLE BORDER=10 CELLSPACING=0 CELLPADDING=0>
<TR>
<TD>
<TABLE BORDER=1 CELLSPACING=0 CELLPADDING=1 BGCOLOR=#99CCFF>
    <TR>
        <TD BGCOLOR=#000099 ALIGN='center' COLSPAN=7>
            <TABLE WIDTH=100% BORDER=0 CELLSPACING=0 CELLPADDING=0>
                <TR>
                    <TD ALIGN='right'><A HREF='./calendar.asp?date=<%= SubtractOneMonth(dDate) %>'><FONT COLOR=#FFFF00 SIZE='-1'&g  T>
<SELECT NAME='month'>
    <OPTION VALUE=1>January</OPTION>
    <OPTION VALUE=2>February</OPTION>
    <OPTION VALUE=3>March</OPTION>
    <OPTION VALUE=4>April</OPTION>
    <OPTION VALUE=5>May</OPTION>
    <OPTION VALUE=6>June</OPTION>
    <OPTION VALUE=7>July</OPTION>
    <OPTION VALUE=8>August</OPTION>
    <OPTION VALUE=9>September</OPTION>
    <OPTION VALUE=10>October</OPTION>
    <OPTION VALUE=11>November</OPTION>
    <OPTION VALUE=12>December</OPTION>
</SELECT>
<SELECT NAME='day'>
    <OPTION VALUE=1>1</OPTION>
    <OPTION VALUE=2>2</OPTION>
    <OPTION VALUE=3>3</OPTION>
    <OPTION VALUE=4>4</OPTION>
    <OPTION VALUE=5>5</OPTION>
    <OPTION VALUE=6>6</OPTION>
    <OPTION VALUE=7>7</OPTION>
    <OPTION VALUE=8>8</OPTION>
    <OPTION VALUE=9>9</OPTION>
    <OPTION VALUE=10>10</OPTION>
    <OPTION VALUE=11>11</OPTION>
    <OPTION VALUE=12>12</OPTION>
    <OPTION VALUE=13>13</OPTION>
    <OPTION VALUE=14>14</OPTION>
    <OPTION VALUE=15>15</OPTION>
    <OPTION VALUE=16>16</OPTION>
    <OPTION VALUE=17>17</OPTION>
    <OPTION VALUE=18>18</OPTION>
    <OPTION VALUE=19>19</OPTION>
    <OPTION VALUE=20>20</OPTION>
    <OPTION VALUE=21>21</OPTION>
    <OPTION VALUE=22>22</OPTION>
    <OPTION VALUE=23>23</OPTION>
    <OPTION VALUE=24>24</OPTION>
    <OPTION VALUE=25>25</OPTION>
    <OPTION VALUE=26>26</OPTION>
    <OPTION VALUE=27>27</OPTION>
    <OPTION VALUE=28>28</OPTION>
    <OPTION VALUE=29>29</OPTION>
    <OPTION VALUE=30>30</OPTION>
    <OPTION VALUE=31>31</OPTION>
</SELECT>
<SELECT NAME='year'>
    <OPTION VALUE=1990>1990</OPTION>
    <OPTION VALUE=1991>1991</OPTION>
    <OPTION VALUE=1992>1992</OPTION>
    <OPTION VALUE=1993>1993</OPTION>
    <OPTION VALUE=1994>1994</OPTION>
    <OPTION VALUE=1995>1995</OPTION>
    <OPTION VALUE=1996>1996</OPTION>
    <OPTION VALUE=1997>1997</OPTION>
    <OPTION VALUE=1998>1998</OPTION>
    <OPTION VALUE=1999>1999</OPTION>
    <OPTION VALUE=2000 SELECTED>2000</OPTION>
    <OPTION VALUE=2001>2001</OPTION>
    <OPTION VALUE=2002>2002</OPTION>
    <OPTION VALUE=2003>2003</OPTION>
    <OPTION VALUE=2004>2004</OPTION>
    <OPTION VALUE=2005>2005</OPTION>
    <OPTION VALUE=2006>2006</OPTION>
    <OPTION VALUE=2007>2007</OPTION>
    <OPTION VALUE=2008>2008</OPTION>
    <OPTION VALUE=2009>2009</OPTION>
    <OPTION VALUE=2010>2010</OPTION>
</SELECT>
 
 
<INPUT TYPE='submit' VALUE='Show This Date on the Calendar!'>
</FORM>
</TD></TR></TABLE>

Function FormatTimestampDB(dTimestampToFormat)
    '' Formats to 'm/d/yyyy h:mm:ss AM' format
    '' Change as appropriate to match your DB
    Dim strMonth, strDay, strYear
    Dim strHour, strMinute, strSecond
    Dim strAMPM
    
    strMonth = Month(dTimestampToFormat)
    strDay = Day(dTimestampToFormat)
    strYear = Year(dTimestampToFormat)
    ''strYear = Right(Year(dTimestampToFormat), 2)
 
    strHour = Hour(dTimestampToFormat) Mod 12
    If strHour = 0 Then strHour = 12
    
    If Hour(dTimestampToFormat) < 12 Then
        strAMPM = 'AM'
    Else
        strAMPM = 'PM'
    End If
 
    strMinute = Minute(dTimestampToFormat)
    If Len(strMinute) = 1 Then strMinute = '0' & strMinute
    
    strSecond = Second(dTimestampToFormat)
    If Len(strSecond) = 1 Then strSecond = '0' & strSecond
 
    '' 'd/m/yyyy h:mm:ss AM' for all those who have had problems.
    ''FormatTimestampDB = strDay & '/' & strMonth & '/' & strYear & ' ' & strHour & ':' & strMinute & ':' & strSecond & ' ' & strAMPM
    
    FormatTimestampDB = strMonth & '/' & strDay & '/' & strYear & ' ' & strHour & ':' & strMinute & ':' & strSecond & ' ' & strAMPM
End Function