<%
public function DtVMonth
		if Request("Q_DATE") = "" or Request("Q_DATE") = "CatSelect" then 
				DtVMonth 	= DateSerial(year(date()), month(date()), 1)
		else
				DtVMonth = DateSerial(year(Request("Q_DATE")), month(Request("Q_DATE")), 1)
		end if
		if DtVMonth = "" then DtVMonth = DateSerial(year(date()), month(date()), 1)
end function
%>