<%
		public function VMonth()
				if Request("Q_DATE") = "" or request.querystring("CHANGE") = "CatSelect" then 
					VMonth	= DateSerial(year(date()), month(date()), 1)
				else
					VMonth = DateSerial(year(Request("Q_DATE")), month(Request("Q_DATE")),1)
				end if
		end function

%>