//*********************************************************************************************** // This script was modified for use with high traffic sites, there are three major modifications // 1) It tacks on a 'random' # to the end of the tracking call to cachebust // 2) It only tracks unique visitors when VwptCountRepeat is false // 3) It uses random #'s to send back tracking on only some subset of the total hits // Modified by Derek Davies/John Cooper 12.18.02 //*********************************************************************************************** // Version 1.0.0.3a function VwMili(){var v=new Date();return v.getTime()} // Set up parameter for referrer var r = "EA.com_x10" //put tracking name here var cb = VwMili(); var random_factor = 10; //1=track every install, 10=every 10th install // This urls determine if the plugin is installed or not RetVmp = "http://www.viewpoint.com/images/tracking/rvmp.gif?" + r + "," + cb; RetNoVmp = "http://www.viewpoint.com/images/tracking/rnvmp.gif?" + r + "," + cb; UniqVmp = "http://www.viewpoint.com/images/tracking/uvmp.gif?" + r + "," + cb; UniqNoVmp = "http://www.viewpoint.com/images/tracking/unvmp.gif?" + r + "," + cb; // These variable determines if we are counting unique visitors // and how long between visits we will check again for the visitor VwptUsingCookies =true; VwptDaysToExpiry =31; VwptCountRepeat =false; // ----------------------------------------------------------------------------------------------------------- // you don't need to modify this // ----------------------------------------------------------------------------------------------------------- VwptVETInstalled =false; VwptAp=(navigator.appName); VwptBv=(parseInt(parseInt(navigator.appVersion.substring(0,1)))); VwptIsIE=((VwptAp=="Microsoft Internet Explorer")&&(VwptBv>=4)); VwptIsNN=((VwptAp.indexOf("Netscape")!=-1)&&(VwptBv==4)); VwptAgt=(navigator.userAgent.toLowerCase()); VwptIsMac=(VwptAgt.indexOf("mac")!=-1); if((VwptIsIE)&&(!VwptIsMac))document.write(unescape("%3cSCRIPT LANGUAGE=%22VBScript%22%3e Dim VwptP_o:Function VwptAXchk(n):VwptAXchk=1:On Error Resume Next:Set VwptP_o=CreateObject(n):if IsObject(VwptP_o) then:VwptAXchk=0:end if:End Function:%3c%2fSCRIPT%3e")); function VwptNPChk(nam){ for(var i=0;i