'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'> </td>"
varRow = varRow + 1
Loop
response.write(varCalendar)