   <!--
   function ValidateForm()
   {
      var intCounter

      for (intCounter= 0; intCounter < (document.forms[1].length - 1); ++intCounter)
      {
         with (document.forms[1])
         {
            if (elements[intCounter].id == 'required' && (elements[intCounter].value == '#REQUIRED#' || (elements[intCounter].value).length == 0))
            {
               elements[intCounter].value = '#REQUIRED#' ;
               alert('Please enter values for all required fields.') ;
               if (elements[intCounter].type == 'text')
                  elements[intCounter].select() ;
               else
                  elements[intCounter].focus() ;
               return false ;
            }
            if (elements[intCounter].value == '#ERROR#')
            {
               alert('Please fix all errors on the form.') ;
               elements[intCounter].select() ;
               return false ;
            }
         }
      }
      return true;
   }

   function emailCheck (EmailControl)
   {
      emailStr = EmailControl.value

      if (emailStr.length = 0)
      {
         objControl.value = '#ERROR#'
         return false
      }

      var checkTLD=1;
      var knownDomsPat=/^(com|net|org|edu|int|mil|gov|arpa|biz|aero|name|coop|info|pro|museum)$/;
      var emailPat=/^(.+)@(.+)$/;
      var specialChars="\\(\\)><@,;:\\\\\\\"\\.\\[\\]";
      var validChars="\[^\\s" + specialChars + "\]";
      var quotedUser="(\"[^\"]*\")";
      var ipDomainPat=/^\[(\d{1,3})\.(\d{1,3})\.(\d{1,3})\.(\d{1,3})\]$/;
      var atom=validChars + '+';
      var word="(" + atom + "|" + quotedUser + ")";
      var userPat=new RegExp("^" + word + "(\\." + word + ")*$");
      var domainPat=new RegExp("^" + atom + "(\\." + atom +")*$");
      var matchArray=emailStr.match(emailPat);

      if (matchArray==null)
      {
         EmailControl.value = '#ERROR#'
         return false;
      }

      var user=matchArray[1];
      var domain=matchArray[2];

      for (i=0; i<user.length; i++)
      {
         if (user.charCodeAt(i)>127)
         {
            EmailControl.value = '#ERROR#'
            return false;
         }
      }

      for (i=0; i<domain.length; i++)
      {
         if (domain.charCodeAt(i)>127)
         {
            EmailControl.value = '#ERROR#'
            return false;
         }
      }

      if (user.match(userPat)==null)
      {
         EmailControl.value = '#ERROR#'
         return false;
      }

      var IPArray=domain.match(ipDomainPat);
      if (IPArray!=null)
      {
         for (var i=1;i<=4;i++)
         {
            if (IPArray[i]>255)
            {
               EmailControl.value = '#ERROR#'
               return false;
            }
         }
         return true;
      }

      var atomPat=new RegExp("^" + atom + "$");
      var domArr=domain.split(".");
      var len=domArr.length;

      for (i=0;i<len;i++)
      {
         if (domArr[i].search(atomPat)==-1)
         {
            EmailControl.value = '#ERROR#'
            return false;
         }
      }

      if (checkTLD && domArr[domArr.length-1].length!=2 && domArr[domArr.length-1].search(knownDomsPat)==-1)
      {
         EmailControl.value = '#ERROR#'
         return false;
      }

      if (len<2)
      {
         EmailControl.value = '#ERROR#'
         return false;
      }

      return true;
   }

   function CheckIfEmpty(objControl)
   {
      if ((objControl.value).length != 0)
         return true
      else
      {
         objControl.value = "#REQUIRED#"
         return false
      }
   }

   //-->