<% @language="VBScript" %>
<% option explicit %>
<% response.buffer = true %>
<%
private x,y,monthEvents
x = Date
y = Month(x)
Dim ArrMonth
ArrMonth = Array("jan","feb","mar","apr","may","jun","jul","aug","sep","oct","nov","dec")
monthEvents = "right_calendar_" & (ArrMonth(y - 1)) & "_1.htm"
%>
adidas soccer