<%@ LANGUAGE="VBSCRIPT" %>
<%
    Dim strMonArray(12)
    Dim strMonthArray(12)
    Dim URL

    strMonArray(0) = "Jan"
    strMonArray(1) = "Feb"
    strMonArray(2) = "Mar"
    strMonArray(3) = "Apr"
    strMonArray(4) = "May"
    strMonArray(5) = "June"
    strMonArray(6) = "July"
    strMonArray(7) = "Aug"
    strMonArray(8) = "Sept"
    strMonArray(9) = "Oct"
    strMonArray(10) = "Nov"
    strMonArray(11) = "Dec"
    
    strMonthArray(0) = "january"
    strMonthArray(1) = "february"
    strMonthArray(2) = "march"
    strMonthArray(3) = "april"
    strMonthArray(4) = "may"
    strMonthArray(5) = "june"
    strMonthArray(6) = "july"
    strMonthArray(7) = "august"
    strMonthArray(8) = "september"
    strMonthArray(9) = "october"
    strMonthArray(10) = "november"
    strMonthArray(11) = "december"
    
    Dim today
    today = FormatDateTime(Now, vbShortDate)
    
    Dim Month
    Dim Day
    dim iPos

    iPos = InStr(today, "/") - 1
    Month = Left(today, iPos)
    
    Dim remain
    iPos = InStr(today, "/") + 1
    remain = Mid(today, iPos)
    iPos = InStr(remain, "/") - 1
    Day = Left(remain, iPos)
   
    URL = strMonthArray(CInt(Month)-1) & "/" & strMonArray(CInt(Month)-1) & "-" & Day & ".html"

    Response.Redirect URL
%>