" & vbNewLine
previous_month = datevalue(dateadd("m", -1, current_month & "/1/" & current_year))
this_month = datevalue(current_month & "/1/" & current_year)
next_month = datevalue(dateadd("m", 1, current_month & "/1/" & current_year))
first_week_day = weekday(this_month) - 1
days_in_this_month = datediff("d", this_month, next_month)
schedule_html = schedule_html & "" & vbNewLine
schedule_html = schedule_html & "" & _
"< | " & vbNewLine
schedule_html = schedule_html & "" & _
"" & month_names(current_month - 1) & " " & current_year & " | " & vbNewLine
schedule_html = schedule_html & "" & _
"> | " & vbNewLine
schedule_html = schedule_html & "" & vbNewLine
'Fill the first week of the month with the appropriate number of blanks.
for week_day = 0 to first_week_day - 1
schedule_html = schedule_html & "  | "
next
week_day = first_week_day
for day_counter = 1 to days_in_this_month
week_day = week_day mod 7
if week_day = 0 then
schedule_html = schedule_html & " " & vbNewLine
end if
'Do something different for the current day.
if current_day = day_counter then
schedule_html = schedule_html & "" & day_counter & " | " & vbNewLine
else
schedule_html = schedule_html & " " & _
"" & _
day_counter & "  | " & vbNewLine
end if
week_day = week_day + 1
next
schedule_html = schedule_html & " " & vbNewLine
schedule_html = schedule_html & " " & vbNewLine
schedule_html = schedule_html & "
" & vbNewLine
'Login.
schedule_html = schedule_html & " |
" & vbNewLine
schedule_html = schedule_html & "