if (parent.document.referrer.indexOf("tekgems")==-1){
CHECK=0;
if (document.cookie !=""){
   thisCookie=document.cookie.split("; ")
   	 for (i=0; i<thisCookie.length; i++) {
    	if (thisCookie[i].split("=")[0]=="from"){
    	CHECK=1;
   		}
   	 }
   }
today=new Date();
millisecs_in_7days=7*86400000;
expireDate = new Date(today.getTime() + millisecs_in_7days); 
if (CHECK==0){   
referred=parent.document.referrer;
if (!referred){referred="Bookmark";}
document.cookie="from="+referred+";path=/;expires="+expireDate.toGMTString();
 }
document.cookie="current="+parent.document.URL+";path=/;expires="+expireDate.toGMTString();
}

function referLink(what){
if (document.cookie !=""){
   thisCookie=document.cookie.split("; ")
   what.href+= "&message=For Office Use: ";
   	 for (i=0; i<thisCookie.length; i++) {
    		what.href+= escape(thisCookie[i].split(";path")[0]+" ");
   	 }
   }
 }

function referForm(what){
if (document.cookie !=""){
   thisCookie=document.cookie.split("; ")
   what.message.value+= "For Office Use: ";
   	 for (i=0; i<thisCookie.length; i++) {
    	  return what.message.value+=thisCookie[i].split(";path")[0]+" ";
   	 }
   }
 }