<%
Option Explicit
'redirect to the current month page
Dim thismonth, currentmonth, url
thismonth=month(date)-1
Dim arrMonths(11)
arrMonths(0) = "january"
arrMonths(1) = "february"
arrMonths(2) = "march"
arrMonths(3) = "april"
arrMonths(4) = "may"
arrMonths(5) = "june"
arrMonths(6) = "july"
arrMonths(7) = "august"
arrMonths(8) = "september"
arrMonths(9) = "october"
arrMonths(10) = "november"
arrMonths(11) = "december"

currentmonth=arrMonths(thismonth)
url="/roadracing/calendar/" & currentmonth & ".asp"
response.Redirect url
%>