<!--
//start easy opt-in script
var allowpop=1;
function popWin(){
var ppl="popLayer";var objppl=findObj(ppl);
if (objppl==null){return;}// if the layer does not exist, do nothing.
var args=arguments,movetoX=parseInt(args[0]),movetoY=parseInt(args[1]),movespeed=parseInt(args[2]);
var cycle=10,pxl="";
if(!document.layers){objppl=objppl.style;}
if(objppl.tmofn!=null){clearTimeout(objppl.tmofn);}
var pplcoordX=parseInt(objppl.left),pplcoordY=parseInt(objppl.top);
var xX=movetoX,yY=movetoY;if((pplcoordX!=movetoX)||(pplcoordY!=movetoY)){
   var moveX=((movetoX-pplcoordX)/movespeed),moveY=((movetoY-pplcoordY)/movespeed);
   moveX=(moveX>0)?Math.ceil(moveX):Math.floor(moveX);movetoX=pplcoordX+moveX;
   moveY=(moveY>0)?Math.ceil(moveY):Math.floor(moveY);movetoY=pplcoordY+moveY;
   if((parseInt(navigator.appVersion)>4||navigator.userAgent.indexOf("MSIE")>-1) && (!window.opera)) {pxl="px";}
   if (moveX!=0){eval("objppl.left='" + movetoX + pxl + "'");}
   if (moveY != 0) {eval("objppl.top = '" + movetoY + pxl + "'");}
   var sFunction = "popWin(" + xX + "," + yY + "," + movespeed+ ")";
   objppl.tmofn = setTimeout(sFunction,cycle);
   }
}
function findObj(theObj, theDoc){
var p, i, foundObj;
if(!theDoc) theDoc = document;
if((p = theObj.indexOf("?")) > 0 && parent.frames.length)
   {theDoc = parent.frames[theObj.substring(p+1)].document;
    theObj = theObj.substring(0,p);}
if(!(foundObj = theDoc[theObj]) && theDoc.all) foundObj = theDoc.all[theObj];
for (i=0; !foundObj && i < theDoc.forms.length; i++)
foundObj = theDoc.forms[i][theObj];
for(i=0; !foundObj && theDoc.layers && i < theDoc.layers.length; i++)
foundObj = findObj(theObj,theDoc.layers[i].document);
if(!foundObj && document.getElementById) foundObj = document.getElementById(theObj);
return foundObj;
}
function hideLayer(layername){
layer=findObj(layername);
if(layer.style){layer=layer.style;}
layer.visibility='hidden'; }
//end easy opt-in script

//start of print script
function printWindow(){
   bV = parseInt(navigator.appVersion)
   if (bV >= 4) window.print()
}
//end of print script

//start of bookmark script
var urlAddress = "http://www.fredgleeck.com";
var pageName = "Fred Gleeck, The King of Content, Product Guru and Marketing Expert";
function bookMark() {
  if (window.external) {
   window.external.AddFavorite(urlAddress,pageName) }
  else { 
   alert("Sorry! Your browser doesn't support this function.");  }
 }
//end of bookmark script

//start of Date function
var mydate=new Date()
var year=mydate.getYear()
if (year < 1000)
year+=1900
var day=mydate.getDay()
var month=mydate.getMonth()
var daym=mydate.getDate()
if (daym<10)
daym="0"+daym
var dayarray=new Array("Sunday","Monday","Tuesday","Wednesday","Thursday","Friday","Saturday")
var montharray=new Array("January","February","March","April","May","June","July","August","September","October","November","December")
function displayDate(){
document.write(montharray[month]+" " +daym+", "+year)
}
function displayYear(){
document.write(year)
}
//end of Date function

 //start of email encrytion script
function bring(acid,attitude,library) {
acid += ' ';
var edge = acid.length;
var cabin = 0;
var cost = '';
for(var custom = 0; custom < edge; custom++) {
cabin = 0;
while(acid.charCodeAt(custom) != 32) {
cabin = cabin * 10;
cabin = cabin + acid.charCodeAt(custom)-48;
custom++;
}
cost += String.fromCharCode(say(cabin,attitude,library));
}
parent.location = 'm'+'a'+'i'+'l'+'t'+'o'+':'+cost;
}

function hit(finger,difference,equipment) {
finger += ' ';
var hope = finger.length;
var favor = 0;
for(var fire = 0; fire < hope; fire++) {
favor = 0;
while(finger.charCodeAt(fire) != 32) {
favor = favor * 10;
favor = favor + finger.charCodeAt(fire)-48;
fire++;
}
document.write('&');
document.write('#');
document.write(say(favor,difference,equipment));
}
}

function say(genetics,language,information) {
if (information % 2 == 0) {
method = 1;
for(var death = 1; death <= information/2; death++) {
watched = (genetics*genetics) % language;
method = (watched*method) % language;
}
} else {
method = genetics;
for(var cloud = 1; cloud <= information/2; cloud++) {
watched = (genetics*genetics) % language;
method = (watched*method) % language;
}
}
return method;
}
//end of email encrytion script
//-->