<% ' Write spacer cells at beginning of first row if month doesn't start on a Sunday. If iDOW <> 1 Then Response.Write "" iPosition = 1 Do While iPosition < iDOW Response.Write "" iPosition = iPosition + 1 Loop End If ' Write days of month in proper day slots iCurrent = 1 iPosition = iDOW Do While iCurrent <= iDIM ' If we're at the begginning of a row then write TR If iPosition = 1 Then Response.Write "" End If ' If the day we're writing is the selected day then highlight it somehow. If iCurrent = Day(dDate) Then Response.Write "" Else Response.Write "" End If ' If we're at the endof a row then write /TR If iPosition = 7 Then Response.Write "" iPosition = 0 End If ' Increment variables iCurrent = iCurrent + 1 iPosition = iPosition + 1 Loop ' Write spacer cells at end of last row if month doesn't end on a Saturday. If iPosition <> 1 Then Do While iPosition <= 7 Response.Write "" iPosition = iPosition + 1 Loop Response.Write "" End If %> << <%= MonthName(Month(dDate)) & " " & Year(dDate) %> >> Sun Mon Tue Wed Thu Fri Sat   " & iCurrent & " " & iCurrent & "

January February March April May June July August September October November December 1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 1990 1991 1992 1993 1994 1995 1996 1997 1998 1999 2000 2001 2002 2003 2004 2005 2006 2007 2008 2009 2010