function MM_findObj(n, d) { //v4.01

  var p, i, x;  

  

  if(!d) 

   d=document;

  

  if((p=n.indexOf("?"))>0&&parent.frames.length) {

    d=parent.frames[n.substring(p+1)].document; n=n.substring(0,p);

  }

  

  if(!(x=d[n])&&d.all)

   x=d.all[n];

  

  for (i=0;!x&&i<d.forms.length;i++)

   x=d.forms[i][n];

  

  for(i=0;!x&&d.layers&&i<d.layers.length;i++) 

   x=MM_findObj(n,d.layers[i].document);

  

  if(!x && d.getElementById)

   x=d.getElementById(n); 

  

  return x;

}



function MM_validateForm() { //v4.0

  var i, p, q, nm, test, num, min, max, errors='', args = MM_validateForm.arguments;

  

  for (i=0; i<(args.length-2); i+=3) { 

   test=args[i+2]; val=MM_findObj(args[i]);

   

   if (val) { 

      nm=val.name;

      

      if ((val=val.value)!="") {

      

         if (test.indexOf('isEmail')!=-1) { 

            p = val.indexOf('@');

            if (p<1 || p==(val.length-1)) 

               errors+='- '+nm+' must contain an e-mail address.\n';

      

         } else if (test!='R') { 

            num = parseFloat(val);

        

            if (isNaN(val)) 

               errors+='- '+nm+' must contain a number.\n';

        

            if (test.indexOf('inRange') != -1) { 

               p=test.indexOf(':');

               min=test.substring(8,p); 

               max=test.substring(p+1);

          

               if (num<min || max<num) 

                  errors+='- '+nm+' must contain a number between '+min+' and '+max+'.\n';

    

            } 

         } 

      } else if (test.charAt(0) == 'R') errors += '- '+nm+' is required.\n'; }

   } 



   if (errors) 

      alert('The following error(s) occurred:\n'+errors);

   

   document.MM_returnValue = (errors == '');

}



function checkemail1() {

   if (EmailFriend.send_to.value != EmailFriend.confirm_email.value) 
   {alert ('Please verify your email address. Your entries did not match.');
    EmailFriend.send_to.value="";
	EmailFriend.confirm_email.value="";
	EmailFriend.send_to.select();	EmailFriend.send_to.focus();
      return false;
   } 
   
   else 
   {return true;
   }
}

function checkemail2B() {

   if (PRFFORM.Email.value != PRFFORM.Email_2.value) 
   {alert ('Please verify your email address. Your entries did not match.');
   PRFFORM.Email.value="";
	PRFFORM.Email_2.value="";
	PRFFORM.Email.select();	PRFFORM.Email.focus();
      return false;
   } 
      else 
   {return true;
   }
}
function checkemail2() {

   if (PRFFORM.Email_1.value != PRFFORM.Email_2.value) 
   {alert ('Please verify your email address. Your entries did not match.');
   PRFFORM.Email_1.value="";
	PRFFORM.Email_2.value="";
	PRFFORM.Email_1.select();	PRFFORM.Email_1.focus();
      return false;
   } 
      else 
   {return true;
   }
}

function checkemail3() {

   if (STORY.Email_1.value != STORY.Email_2.value) 
   {alert ('Please verify your email address. Your entries did not match.');
   STORY.Email_1.value="";
	STORY.Email_2.value="";
	STORY.Email_1.select();	STORY.Email_1.focus();
      return false;
   } 
   
   else 
   {return true;
   }
}