function refRoot(data) {	var ref = new Array();	ref = data.split(/\/\/|\/|\?/g,4);		//ref{0} s.b. "http:", ref{1} s.b. "www.something.com", ref[2] s.b. any subdirectories or specific filenames, query, etc.	return ref[1];}function findCookieValue(key) {	var allcookies = document.cookie;	if(-1 == allcookies.indexOf(key)) {return "";}	else {	var ref = new Array();				ref = allcookies.split(/;/g);	var target;	var pattern = new RegExp(key);	while ((target = ref.pop()) && !pattern.test(target));	ref = target.split(/=/g);	return ref[1];	}}//Set pattern to test for and prevent interfering characters in cookie value or stats key.	var patternA = new RegExp("[^a-zA-Z0-9_:\.\/\-]");	var now = new Date();	var newID = Math.round(now.getTime()/1000);function getNewID(){	var fiveyears = new Date(now.valueOf()+1000*60*60*24*365*5);	document.cookie="visitid=V" + newID + "; expires=" + fiveyears.toGMTString();}if(-1 == document.cookie.indexOf("visitid=")) getNewID();var visitorID;var patternV = new RegExp("V");if(-1 == document.cookie.indexOf("visitid=")) {visitorID = "000_No_Cookies";}else {	visitorID = findCookieValue("visitid=");	if(visitorID == "NaN"){}	else if(patternV.test(visitorID)){}	else if(visitorID == ""){visitorID = "Error1";}	else {		getNewID();		visitorID = findCookieValue("visitid=");	}}var maplook = findCookieValue("maplook=");var distloc = findCookieValue("distloc=");var prefloc = findCookieValue("prefloc=");var formloc = findCookieValue("formloc=");var globalcomma = new RegExp(",","g");var globalspace = new RegExp(" ","g");var lang = "";lang = window.navigator.language;if(!lang) lang = window.navigator.userLanguage;//alert(lang);var safelang = lang.replace(globalcomma,"");//alert('2');var agent = window.navigator.userAgent;var safeagent = agent.replace(globalcomma,"");safeagent = safeagent.replace(globalspace,"_");//If the __ref cookie does not exist, make one to last for just this session. Then record the entry and page visit in the stats files.if(-1 == document.cookie.indexOf("__ref=")) {	var dr, wl, cookies=true;	if (document.referrer) dr = refRoot(document.referrer); else dr = "undefined";	if(patternA.test(dr)) dr = "Error3";	document.cookie = "__ref="+dr;	if(-1 == document.cookie.indexOf("__ref=")) {dr = "noCookies";cookies=false;}	document.write('<iframe SRC="cgi-bin/referrers.cgi?refurl='+dr+'" name="stats1" width="100" height="0" scrolling="no" frameborder="0" border="0"></iframe>');	//What this does is runs the performance.cgi script within an iframe so that the document.location is not changed.	document.write('<iframe SRC="cgi-bin/pages.cgi?refurl='+dr+'" name="stats2" width="100" height="0" scrolling="no" frameborder="0" border="0"></iframe>');	document.write('<iframe SRC="cgi-bin/thankyous0.cgi?refurl='+dr+'" name="stats3" width="100" height="0" scrolling="no" frameborder="0" border="0"></iframe>');	document.write('<iframe SRC="cgi-bin/distribs0.cgi?refurl='+dr+'" name="stats4" width="100" height="0" scrolling="no" frameborder="0" border="0"></iframe>');	wl = window.location;	if(patternA.test(wl)) wl = "Error3";	if(cookies) document.write('<iframe SRC="cgi-bin/landing.cgi?refurl='+wl+'" name="stats5" width="100" height="0" scrolling="no" frameborder="0" border="0"></iframe>');	document.write('<iframe SRC="cgi-bin/visitrecord.cgi?visitid='+visitorID+'&init&'+maplook+'&'+distloc+'&'+prefloc+'&'+formloc+'&'+'&'+safelang+'&'+safeagent+'&'+document.referrer+'" name="stats6" width="100" height="0" scrolling="no" frameborder="0" border="0"></iframe>');}//If the __ref cookie does exist+ read it. Then use the value to record the page visit only.else {	//alert("OK to here.");	//alert("value = "+findCookieValue("__ref="));	var sr = findCookieValue("__ref=");	if(patternA.test(sr)) sr = "Error3";	document.write('<iframe SRC="cgi-bin/pages.cgi?refurl='+sr+'" name="stats2" width="100" height="0" scrolling="no" frameborder="0" border="0"></iframe>');	document.write('<iframe SRC="cgi-bin/visitrecord.cgi?visitid='+visitorID+'&page&'+maplook+'&'+distloc+'&'+prefloc+'&'+formloc+'&'+'&'+safelang+'&'+safeagent+'&'+document.referrer+'" name="stats6" width="100" height="0" scrolling="no" frameborder="0" border="0"></iframe>');}