/*
  2011-10-28
    Carat Tracking Library v1.1
  	http://www.safestyle-windows.co.uk/
  	(c) Carat (Leeds) 2011
*/

function carat_Rand(){
    var Rand = String(Math.random() * 10000000000000);
    return Rand;
}

function carat_CreateDiv(){
    var newDiv = document.createElement('div');
    newDiv.setAttribute('id',"carat_TargetDiv");
    newDiv.style.margin = "0px auto";
    newDiv.style.position="absolute";  	 
    newDiv.style.pixelLeft=1;
    newDiv.style.pixelTop=1;
    newDiv.style.pixelWidth=1;
    newDiv.style.pixelHeight=1;
    document.body.appendChild(newDiv);
}

function carat_GetDiv(strURL, isIFrame) {
	var e = document.getElementById("carat_TargetDiv");
	if (!e) return "";
	if(isIFrame)	{
		e.appendChild(carat_CreateIFrame(strURL));	
	} else {
		e.appendChild(carat_CreateImg(strURL));	
	}
}

function carat_CreateIFrame(strURL) {
	var newIFrame = document.createElement('iframe');
	newIFrame.src=strURL;
	newIFrame.width="1";
	newIFrame.frameBorder="0";
	newIFrame.allowTransparency=true;
	newIFrame.height="1";
	return newIFrame;
}

function carat_CreateImg(strURL) {
	var newImg = document.createElement('img'); 
	newImg.src=strURL; 
	newImg.width="1"; 
	newImg.alt=""; 
	newImg.height="1"; 
	newImg.border="0";
	return newImg;
}

function carat_dnsTrack(){
	if ((document.referrer) && (window.location.protocol == "http:")) {	
		var ord = Math.random() * 1000000000000;
		document.write('<script language="JavaScript1.1" src="http://ad.doubleclick.net/adj/N4378.N10466.nso.codesrv/B6145118;dcadv=3465880;sz=1x2;ord=' + ord + '?"><\/script>');
	}
}

function carat_Track(isIFrame, aid, typ, cat, custVars, ordId){	
		var strProt = window.location.protocol;
		
		/*iframe or image tag*/
		var tt = '';
		if (isIFrame) {
			tt = '//fls.doubleclick.net/activityi;src=';
		} else {
			tt = '//ad-emea.doubleclick.net/activity;src=';
		}
		
		/*standard or unique counter*/
		var allVars = '';
		if (ordId == '') {
			allVars = ';ord=' + carat_Rand();
		} else {
			allVars = ';ord=' + ordId + ';num=' + carat_Rand();
		}
		
		/*build custom variables string*/
		if(custVars != '') allVars = ';' + custVars + allVars;
		
		/*build complete URL, find DIV, and place IFrame or Image within*/
		var completeTag = strProt + tt + aid + ';type=' + typ + ';cat=' + cat + allVars + '?';
		carat_GetDiv(completeTag, isIFrame);
}

carat_CreateDiv();
/*visitor and page view*/
carat_Track(true, '3409757', 'count488', '01_ge972', 'u1='+encodeURIComponent(window.location.host + window.location.pathname), '1');
/*organic search tracking*/
carat_dnsTrack();