For those of you looking to create an ASP based calendar you could try:
<%
Todays_BG_Color = "#FF0000"
Blanks_BG_Color = "#CCCCCC"
Day_Today = Day(Now())
Weekday_start = WeekDay(Now() - Day(Now()))
Day_Counter = 0
Ticker = 1
Number_Of_Rows = 6
Number_Of_Cols = 7
%>
<table border="1">
<tr><td colspan="<%=Number_Of_Cols%>" align="center"><%=MonthName(Month(Now()))%></td></tr>
<tr><td>M</td><td>T</td><td>W</td><td>T</td><td>F</td><td>S</td><td>S</td></tr>
<%
For X = 1 To Number_Of_Rows
%><tr><%
For Y = 1 To Number_Of_Cols
%><td<%If Day_Counter = Day_Today Then%> bgcolor="<%=Todays_BG_Color%>"<%End If%><%If Day_Counter = 0 Then%> bgcolor="<%=Blanks_BG_Color%>"<%End If%>><%
If Day_Counter = 0 Then
Response.Write(" ")
Else
response.Write(Day_Counter)
end If
%></td><%
Ticker = Ticker + 1
If Ticker >= Weekday_start Then Day_Counter = Day_Counter + 1
Next
%></tr><%
Next
%>
</table>
