	function leadingZero( nr )
	{
		if ( nr < 10) nr = "0" + nr;
		return nr;
	}

	function leadingZero2(nr)
	{
		if (nr < 100) nr = "0" + nr;
		return nr;
	}

	startPos = 3;
	var urlVal = String( self.document.location ).toLowerCase();
	var refString = "";
	var afName = "";
	
	var refPos  = urlVal.indexOf("&af=");
	if( refPos == -1) {
		refPos  = urlVal.indexOf("?af=");
	}
	if( refPos == -1) {
		refPos  = urlVal.indexOf("%3faf%3d");
		startPos = 7;
	}

	if( refPos != -1) {


	    var remainUrl = urlVal.substring( refPos+1, urlVal.length );
	    var ampPos = remainUrl.indexOf("&",2);

		if ( ampPos == -1 ) {
			afName = remainUrl.substring( startPos, remainUrl.length );
		}
		else {
			afName = remainUrl.substring( startPos, ampPos );
		}

		var now = new Date();
		var year = now.getYear();
		if ( year < 2000 )
			year = year + 1900;
		var curDate = year + '-' + leadingZero(now.getMonth() + 1) + '-' + leadingZero(now.getDate()) + '-' + leadingZero(now.getHours()) + '.' + leadingZero(now.getMinutes()) + '.' + leadingZero(now.getSeconds()) + '.' + leadingZero2(leadingZero(now.getMilliseconds())) + "000";
		var beanDate = year + '-' + leadingZero(now.getMonth() + 1) + '-' + leadingZero(now.getDate()) + '%20' + leadingZero(now.getHours()) + ':' + leadingZero(now.getMinutes()) + ':' + leadingZero(now.getSeconds()) + '.' + leadingZero2(leadingZero(now.getMilliseconds())) + "000";

	  	// Set the refer cookie as the current date-time
     	var expdate = "Wed, 31-Dec-08 11:59:59 GMT";
   		document.cookie="af_cookie="+curDate+"; expires="+expdate+"; path=/";
   		document.cookie="af_name="+afName+"; expires="+expdate+"; path=/";

		var adName = "";
		refPos  = urlVal.indexOf("&ad=");
		startPos = 3;				
	
		if( refPos == -1) {
			refPos  = urlVal.indexOf("?ad=");
			startPos = 3;
		}	
		if( refPos == -1) {
			refPos  = urlVal.indexOf("%3fad%3d");
			startPos = 7;
		}
		
		if( refPos != -1) {
	
			var remainUrl = urlVal.substring( refPos+1, urlVal.length );
			var ampPos = remainUrl.indexOf("&",2);
	
			if ( ampPos == -1 ) {
				adName = remainUrl.substring( startPos, remainUrl.length );
			}
			else {
				adName = remainUrl.substring( startPos, ampPos );
			}
		}

		var sName = "";
		refPos  = urlVal.indexOf("&s=");
		startPos = 2;				
	
		if( refPos == -1) {
			refPos  = urlVal.indexOf("?s=");
			startPos = 2;
		}	
		if( refPos == -1) {
			refPos  = urlVal.indexOf("%3fs%3d");
			startPos = 6;
		}
		
		if( refPos != -1) {
	
			var remainUrl = urlVal.substring( refPos+1, urlVal.length );
			var ampPos = remainUrl.indexOf("&",2);
	
			if ( ampPos == -1 ) {
				sName = remainUrl.substring( startPos, remainUrl.length );
			}
			else {
				sName = remainUrl.substring( startPos, ampPos );
			}
		}

		var qName = "";
		refPos  = urlVal.indexOf("&q=");
		startPos = 2;				
	
		if( refPos == -1) {
			refPos  = urlVal.indexOf("?q=");
			startPos = 2;
		}	
		if( refPos == -1) {
			refPos  = urlVal.indexOf("%3fq%3d");
			startPos = 6;
		}
		
		if( refPos != -1) {
	
			var remainUrl = urlVal.substring( refPos+1, urlVal.length );
			var ampPos = remainUrl.indexOf("&",2);
	
			if ( ampPos == -1 ) {
				qName = remainUrl.substring( startPos, remainUrl.length );
			}
			else {
				qName = remainUrl.substring( startPos, ampPos );
			}
		}

		document.write('<IMG SRC="http://www.epoinvestor.com/ReferTrack?af='+afName+'&ad='+adName+'&s='+sName+'&q='+qName+'&createDt='+beanDate+'" WIDTH=1 HEIGHT=1 ALT="">' );
	}

	refPos  = urlVal.indexOf("?imp=");
	startPos = 4;				

	if( refPos == -1) {
		refPos  = urlVal.indexOf("?imp=");
		startPos = 4;
		refTag = "imp";		
	}	
	if( refPos == -1) {
		refPos  = urlVal.indexOf("%3fimp%3d");
		startPos = 8;
	}

	if( refPos != -1) {

	    var remainUrl = urlVal.substring( refPos+1, urlVal.length );
	    var ampPos = remainUrl.indexOf("&",2);

		if ( ampPos == -1 ) {
			refString = remainUrl.substring( startPos, remainUrl.length );
		}
		else {
			refString = remainUrl.substring( startPos, ampPos );
		}

		// if this is a affiliate cookie, set a session cookie so that the affiliate gets credit for anything that happens in this session
   		document.cookie="imp_cookie="+refString+";path=/";			
	}

	refPos  = urlVal.indexOf("?clk=");
	startPos = 4;				

	if( refPos == -1) {
		refPos  = urlVal.indexOf("?clk=");
		startPos = 4;
	}	
	if( refPos == -1) {
		refPos  = urlVal.indexOf("%3fclk%3d");
		startPos = 8;
	}


	if( refPos != -1) {

	    var remainUrl = urlVal.substring( refPos+1, urlVal.length );
	    var ampPos = remainUrl.indexOf("&",2);

		if ( ampPos == -1 ) {
			refString = remainUrl.substring( startPos, remainUrl.length );
		}
		else {
			refString = remainUrl.substring( startPos, ampPos );
		}

		// if this is a affiliate cookie, set a session cookie so that the affiliate gets credit for anything that happens in this session
   		document.cookie="clk_cookie="+refString+";path=/";			
	}

	// check if the URL conatain a referring email address
	refPos  = urlVal.indexOf("?remail=");
	startPos = 7;				
	refTag = "remail";			
	
	if( refPos == -1) {
		refPos  = urlVal.indexOf("&remail=");
		startPos = 7;
		refTag = "remail";		
	}	
	if( refPos == -1) {
		refPos  = urlVal.indexOf("%3fremail%3d");
		startPos = 11;
		refTag = "remail";		
	}

	var refString = "";
	if( refPos != -1) {

		var remainUrl = urlVal.substring( refPos+1, urlVal.length );
	    	var ampPos = remainUrl.indexOf("&",2);

		if ( ampPos == -1 ) {
			refString = remainUrl.substring( startPos, remainUrl.length );
		}
		else {
			refString = remainUrl.substring( startPos, ampPos );
		}

		var now = new Date();
		var year = now.getYear();
		if ( year < 2000 )
			year = year + 1900;

		// Set the refer cookie as the current date-time
		var expdate = "Wed, 31-Dec-08 11:59:59 GMT";
		document.cookie="refer_email="+refString+"; expires="+expdate+"; path=/";
	}

	function getReferCookie( ) {
	
    		var dcookie=document.cookie;
    		var cname="af_cookie=";
    		var clen=dcookie.length;
    		var cbegin=0;
    		while (cbegin<clen)
      		{
        		var vbegin=cbegin+cname.length;
        		if (dcookie.substring(cbegin, vbegin) == cname)
          		{
            		var vend=dcookie.indexOf(";", vbegin);
            		if (vend == -1)
              			vend=clen;
            		return unescape(dcookie.substring(vbegin, vend));
          		}
        		cbegin=dcookie.indexOf(" ", cbegin)+1;
        		if (cbegin == 0)
          			break;
      		}
    		return null;
  	}

	function getReferName( ) {
	
    		var dcookie=document.cookie;
    		var cname="af_name=";
    		var clen=dcookie.length;
    		var cbegin=0;
    		while (cbegin<clen)
      		{
        		var vbegin=cbegin+cname.length;
        		if (dcookie.substring(cbegin, vbegin) == cname)
          		{
            		var vend=dcookie.indexOf(";", vbegin);
            		if (vend == -1)
              			vend=clen;
            		return unescape(dcookie.substring(vbegin, vend));
          		}
        		cbegin=dcookie.indexOf(" ", cbegin)+1;
        		if (cbegin == 0)
          			break;
      		}
    		return null;
  	}

	function getAF() {

		af = getAffiliateCookie();
		if ( af == null || af == "" )
			return "308124";
			
		return af;	
	}
	
	function getAffiliateCookie() {
	
    		var dcookie=document.cookie;
    		var cname="af_cookie=";
    		var clen=dcookie.length;
    		var cbegin=0;
    		while (cbegin<clen)
      		{
        		var vbegin=cbegin+cname.length;
        		if (dcookie.substring(cbegin, vbegin) == cname)
          		{
            		var vend=dcookie.indexOf(";", vbegin);
            		if (vend == -1)
              			vend=clen;
            		return unescape(dcookie.substring(vbegin, vend));
          		}
        		cbegin=dcookie.indexOf(" ", cbegin)+1;
        		if (cbegin == 0)
          			break;
      		}
    		return null;
  	}


	function clearReferCookie( cookieDate )	{
	
   	  	var expdate = "Wed, 31-Dec-01 11:59:59 GMT";
   		document.cookie="af_cookie="+cookieDate+"; expires="+expdate+"; path=/";
	}

	function getReferEmail() {
	
    		var dcookie=document.cookie;
    		var cname="refer_email=";
    		var clen=dcookie.length;
    		var cbegin=0;
    		while (cbegin<clen)
      		{
        		var vbegin=cbegin+cname.length;
        		if (dcookie.substring(cbegin, vbegin) == cname)
          		{
            		var vend=dcookie.indexOf(";", vbegin);
            		if (vend == -1)
              			vend=clen;
            		return unescape(dcookie.substring(vbegin, vend));
          		}
        		cbegin=dcookie.indexOf(" ", cbegin)+1;
        		if (cbegin == 0)
          			break;
      		}
    		return null;
  	}


	function clearReferEmail() {
	
   	  	var expdate = "Wed, 31-Dec-01 11:59:59 GMT";
   		document.cookie="refer_email=; expires="+expdate+"; path=/";
	}

