<%
	aDT = Date() + Time()
	cIP	= Request.ServerVariables("REMOTE_HOST")
	uRL = Request.ServerVariables("HTTP_REFERER")
	sqlstr="insert into stat (accessDT,clientIP,fromURL) values ('"&aDT&"','"&cIP&"','"&uRL&"')"
	conn.Execute(sqlstr)
	sqlstr="update Config set accessCount=accessCount+1 where ID=2"
	conn.Execute(sqlstr)
%>