function affiliateTracking(){
	if(readCookie("affiliateInfo")==null){ qs(); var kws=":";var affiliate_id=":";var link_id=":";var subaff=":";
		kws=GetKwds();kws+=":";
		if(qsParm['affiliate_id']!=undefined && qsParm['affiliate_id']!="" && qsParm['affiliate_id']!=null && qsParm['affiliate_id']!="undefined"){ affiliate_id=qsParm['affiliate_id']+":"; }
		if(qsParm['link_id']!=undefined && qsParm['link_id']!="" && qsParm['link_id']!=null && qsParm['link_id']!="undefined"){ link_id=qsParm['link_id']+":"; }
		if(qsParm['subaff']!=undefined && qsParm['subaff']!="" && qsParm['subaff']!=null && qsParm['subaff']!="undefined"){ subaff=qsParm['subaff']+":"; }
		var fw=":"; if(document.referrer){ fw=document.referrer;fw=fw.replace("http://",""); }
		var str=kws+affiliate_id+link_id+subaff+fw; var ds="1";if(affiliate_id!=":"){ ds="30"; }createCookie('affiliateInfo',str,ds);
	}
}
function createCookie(n,v,d){
	if(d){
		var date = new Date();
		date.setTime(date.getTime()+(d*24*60*60*1000));
		var expires = "; expires="+date.toGMTString();
	}
	else var expires ="";
	document.cookie = n+"="+v+expires+"; path=/";
}
function readCookie(n){
	var nEQ = n + "=";var ca =document.cookie.split(';');
	for(var i=0;i < ca.length;i++)
	{
		var c = ca[i];
		while (c.charAt(0)==' ') c = c.substring(1,c.length);
		if (c.indexOf(nEQ) == 0) return c.substring(nEQ.length,c.length);
	}
	return null;
}
var qsParm = new Array();
function qs(){ var query=window.location.search.substring(1);var parms=query.split('&');for(var i=0; i<parms.length; i++){ var pos=parms[i].indexOf('=');if (pos > 0){var key=parms[i].substring(0,pos);var val=parms[i].substring(pos+1);qsParm[key] = val; } } }
function getKwds(){ alert(GetKwds()); }
function setAffInfo(){
  if(document.getElementById){ 
  	/*document.getElementById("custom_subaff").value=(document.getElementById("custom_subaff").value=="") ? "":document.getElementById("custom_subaff").value;*/
  	/*document.getElementById("lead_site_c").value=location.host;*/document.getElementById("custom_lead_url").value=location.href;
  	if(readCookie("affiliateInfo")!=null){ ck = readCookie("affiliateInfo").split(":");if(ck[0]!=""){ document.getElementById("custom_ref_keywords").value=unescape(ck[0]); }if(ck[1]!=""){ document.getElementById("affiliate_id").value=ck[1]; }if(ck[2]!=""){ document.getElementById("link_id").value=unescape(ck[2]); }if(ck[3]!=""){ document.getElementById("custom_subaff").value=unescape(ck[3]); }if(ck[4]!=""){ document.getElementById("custom_ref_url").value=ck[4]; } } }
  if(document.all){ document.all.custom_subaff.value=(document.all.custom_subaff.value=="")? "": document.all.custom_subaff.value;/*document.all.lead_site_c.value=location.host;*/document.all.custom_lead_url.value=location.href; 
if(readCookie("affiliateInfo")!=null){ ck = readCookie("affiliateInfo").split(":");if(ck[0]!=""){ document.all.custom_ref_keywords.value=unescape(ck[0]); }if(ck[1]!=""){ document.all.affiliate_id.value=ck[1]; }if(ck[2]!=""){ document.all.link_id.value=unescape(ck[2]); }if(ck[3]!=""){ document.all.custom_subaff.value=unescape(ck[3]); }if(ck[4]!=""){ document.all.custom_lead_url.value=ck[4]; } } }
}
var SEQ = 'q';
function WhatSearchEngine(){ try{ var ref = document.referrer.toUpperCase();if (ref.indexOf('GOOGLE.COM') > 0) { SEQ = 'q'; return true; }if (ref.indexOf('YAHOO.COM') > 0) { SEQ = 'p'; return true; }if (ref.indexOf('LOCALHOST') > 0) { SEQ = 'q'; return true; } }catch (exception) { whaterror('WhatSearchEngine',exception); }return false; }

function GetKwds()
{
   if (WhatSearchEngine() == false) { return true; }var keywords = new Array();var ref = document.referrer;var pair;var qIndex = 0;var qs;var prm;
   try
   {
     qIndex = ref.indexOf('?');
     if (qIndex < 1) { return keywords; }
     ref = KeyWordReplace(ref,'%22','');
     qs = ref.substring(qIndex + 1,ref.length);
     prm = qs.split('&');
     for (i=0;i<prm.length;i++)
     {
       pair = prm[i].split('=');
       temp = unescape(pair[0]).split('+');
       name = temp.join(' ');
       if (name != SEQ) { continue; }
       temp = unescape(pair[1]).split('+');
       for(k=0;k<temp.length;k++){ keywords.push(temp[k]); }
     }
   }
   catch (exception) { whaterror('GetKwds',exception); }
   return keywords.join(" ");
}
function whaterror(functionName,e){ if (e.description == null){ /* alert(functionName + ' ' + e.message); */ }else { /* alert(functionName + ' ' + e.description); */ } }
function KeyWordReplace(OrgVal,SearchVal,ReplaceVal)
{
  var Val;
  var RegExp = eval("/" + SearchVal + "/g");
  if (OrgVal.indexOf(SearchVal) <1) {  return OrgVal; }
  Val = OrgVal.replace(RegExp,ReplaceVal);
  return Val;
}