<%
' Loop for the 1st week of the month
for counter = 1 to 7 %>
<%
' Check to see what day the first of the month falls on
if counter > first_day-1 then
' Count for days
days=days+1
' Check to see if the current date is in the 1st week
' if so place it in bold type
if days=this_date then
response.write "" & days & ""
else
response.write days
end if ' End check for current date
end if ' End check for first day of the week
%> | <%
next %>
<%
' Loop for the remaining weeks in the month
for weeks = 1 to 5 %>