<% If Request.Querystring("month") <> "" Then filterMonth=Request.Querystring("month") ElseIf Request.form("month") <> "" Then filterMonth=Request.form("month") Else filterMonth=Month(Now) End If if filterMonth = 1 then selectedMonth = "January" elseif filterMonth = 2 then selectedMonth = "February" elseif filterMonth = 3 then selectedMonth = "March" elseif filterMonth = 4 then selectedMonth = "April" elseif filterMonth = 5 then selectedMonth = "May" elseif filterMonth = 6 then selectedMonth = "June" elseif filterMonth = 7 then selectedMonth = "July" elseif filterMonth = 8 then selectedMonth = "August" elseif filterMonth = 9 then selectedMonth = "September" elseif filterMonth = 10 then selectedMonth = "October" elseif filterMonth = 11 then selectedMonth = "November" elseif filterMonth = 12 then selectedMonth = "December" end if If Request.Querystring("year") <> "" Then filterYear=Request.Querystring("year") ElseIf Request.Form("year") <> "" Then filterYear=Request.Form("year") Else filterYear=Year(Now) End If %> Year <%for i = Year(Now)-7 to Year(Now)%> "" then if cint(filterYear)=cint(i) then%>selected<%end if else if cint(i) = cint(Year(Now)) then%> selected <%end if end if%>><%=i%> <%next%> Month >January >February >March >April >May >June >July >August >September >October >November >December