<%
tmp = Date()
currYear = Year(tmp)
currMonth = MonthName(Month(tmp))
if not Request.QueryString("month")="" then
requestedMonth = Request.QueryString("month")
if requestedMonth = "January" or requestedMonth = "February" or requestedMonth = "March" or requestedMonth = "April" or requestedMonth = "May" or requestedMonth = "June" or requestedMonth = "July" then
if currMonth = "August" or currmonth = "September" or currmonth = "October" or currmonth = "November" or currmonth = "December" then
currYear = currYear + 1
end if
elseIf requestedMonth = "August" or requestedMonth = "September" or requestedMonth = "October" or requestedMonth = "November" or requestedMonth = "December" then
if currMonth = "January" or currMonth = "February" or currMonth = "March" or currMonth = "April" or currMonth = "May" or currMonth = "June" or currMonth = "July" then
currYear = currYear - 1
end if
end if
else
requestedMonth = currMonth
end if
set objDay = FirstDayOf(currYear, requestedMonth, true)
If objDay is Nothing Then
Response.Write "Error"
End if
Set tmpDay = objDay
%>
