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