'While days are greater than count
						Do While count < varDays
							'Increase Count
							count = count + 1
							
							'Check details of today
							rtnEventPage = ""
							sql = "SELECT id, datedisplay, container FROM cms WHERE container=7 AND datedisplay = "&DateSerial( 2006, 7, count )
							set rtnEventPage = connection.execute(sql)
							varDetail = 0
							
							If rtnEventPage.EOF = true Then
							
								varDetail = 2
							
							End If
							
							
							
							If count = Day(Now()) Then
								
								varDetail = 1
							
							End If							
							
							'Print type
							Select Case varDetail
								'Event day
								Case 2
								varCalendar = varCalendar + "<td class='special2'><a href=./events.asp?id="&rtnEventPage("id")&">"&count&"</a></td>"
								
								'Today
								Case 1
								varCalendar = varCalendar + "<td class='special1'>"&count&"</td>"
								
								'Default (Empty Day)
								Case 0
								varCalendar = varCalendar + "<td class='tablecell'>"&count&"</td>"
							End Select
							
							varRow = varRow + 1
							'If the end of a row, add the table row delimiter
							If varRow = 7 Then
								varRow = 0
								varCalendar = varCalendar + "</tr><tr>"
							End If 
							
							Loop
						
						'Print out the remaining days
						Do While varRow < 7
						
							varCalendar = varCalendar + "<td class='tablecell'>&nbsp;</td>"
							varRow = varRow + 1
							
						Loop
						
						response.write(varCalendar)