// Validation code
// Previously of Macromedia design (we believe)
function CC_findObj(n, d) { 
  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=CC_findObj(n,d.layers[i].document);
  if(!x && document.getElementById) x=document.getElementById(n); return x;
}

var reEmail = /^.+\@.+\..+$/
// CC_validateForm('[field name]','[field description]','R/RisEmail/inRange[min]:[max]',....)
// return document.CC_returnValue
function CC_validateForm() { 
  var i,p,q,nm,test,num,min,max,val,errors='',args=CC_validateForm.arguments,desc,lastnm;
  for (i=0; i<(args.length-2); i+=3) { desc=args[i+1]; test=args[i+2]; val=CC_findObj(args[i]);
    if (val) { nm=val.name; if (desc=="") desc=nm;
    if ((val=val.value)!="") {
      if (test.indexOf('isEmail')!=-1) { p=reEmail.test(val);
        if (!p) { errors+='- '+desc+' must contain a valid e-mail address.\n'; lastnm = nm }
      } else if (test!='R') {
        if (isNaN(val)) { errors+='- '+desc+' must contain a number.\n'; lastnm = nm }
        if (test.indexOf('inRange') != -1) { p=test.indexOf(':');
          min=test.substring(8,p); max=test.substring(p+1);
          if (val<min || max<val) { errors+='- '+desc+' must contain a number between '+min+' and '+max+'.\n'; lastnm = nm }
    } } } else if (test.charAt(0) == 'R') {errors += '- '+desc+' \n'; lastnm = nm } }
  } if (errors) {
	alert('Please select or enter a value for the following before proceeding:\n\n'+errors);	
	CC_findObj(lastnm).focus();
  }
  document.CC_returnValue = (errors == '');
}