<!--
function WBR_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=WBR_findObj(n,d.layers[i].document);
  }
  if(!x && d.getElementById) {
    x=d.getElementById(n);
  }
  return x;
}

function WBR_validateForm() { //v4.0
  var i,p,q,nm,tmp,test,num,min,max,errors='',args=WBR_validateForm.arguments;
  for (i=0; i<(args.length-2); i+=3) {
    test=args[i+2];
    val=WBR_findObj(args[i]);
    if (val) {
//    nm=val.name;
      nm=args[i+1];
      if ((ctrlval=val.value)=="") {
// alert('nm='+nm+':\nctrlval='+ctrlval+':\ntest:'+test+':');
        if (test.charAt(0) == 'R') {
          errors += '- '+nm+' è richiesto.\n';
        }
      } else {
        p=test.indexOf(' ');
        if (p<1) p=(test.length);
// alert('nm='+nm+':\np='+p+':\nTipo='+test.substring(0,p)+':');

        switch(test.substring(0,p)){
          case "Rselect-one":
          case "Rselect-multiple":
// alert('nm='+nm+':\nTipo=Rselect-one/multiple':\nselectedIndex.2='+val.selectedIndex+':');
            if (val.selectedIndex == 0){
              errors+='- '+nm+' deve essere selezionato.\n';
            }
          break;
          case "Remail":
            p=ctrlval.indexOf(' ');
            if (p>0 ) {
              errors+='- '+nm+' non deve contenere spazi.\n';
            } else {
              p=ctrlval.indexOf('@');
              if (p<1 || p==(ctrlval.length-1)) {
                errors+='- '+nm+' deve contenere il carattere @.\n';
              } else {
                tmp=ctrlval.substring(p,(ctrlval.length));
                p=tmp.indexOf('.');
                if (p<1 || p==(tmp.length-1)) {
                  errors+='- '+nm+' deve contenere un punto dopo il carattere @.\n';
                }
              }
            }
          break;
          case "Rrange":
            ctrlval = parseFloat(ctrlval);
            if (isNaN(ctrlval)) {
              errors+='- '+nm+' deve essere un numero.\n';
            } else {
              p=test.indexOf(':');
              min=test.substring(7,p);
              max=test.substring(p+1);
// alert('nm='+nm+':\nTipo=Rrange:\np='+p+':\nmin='+min+':\nmax='+max+':\nctrlval='+ctrlval+':\ntest:'+test+':');
              if (p<8) {
                if (ctrlval>max) {
                  errors+='- '+nm+' deve essere un numero minore o uguale a '+max+'.\n';
//              } else {
//                errors+='- OK '+nm+' è minore o uguale a '+max+'.\n';
                }
              } else {
                if (p==test.length-1) {
                  if (ctrlval<min) {
                    errors+='- '+nm+' deve essere un numero maggiore o uguale a '+min+'.\n';
//                } else {
//                  errors+='- OK '+nm+' è maggiore o uguale a '+min+'.\n';
                  }
                } else {
                  if (ctrlval<min || ctrlval>max) {
                    errors+='- '+nm+' deve essere un numero tra '+min+' e '+max+'.\n';
//                } else {
//                  errors+='- OK '+nm+' è compreso tra '+min+' e '+max+'.\n';
                  }
                }
              }
            }
          break;
          case "Rnumber":
            ctrlval = parseFloat(ctrlval);
            if (isNaN(ctrlval)) {
              errors+='- '+nm+' deve essere un numero.\n';
            }
          break;
          case "Rtext":
          case "Rtextarea":
// Fatto sopra il controllo che non siano vuoti { (ctrlval=val.value)=="" }
          break;
//           default:
// alert('nm='+nm+':\np='+p+':\nTipo Sconosciuto='+test.substring(0,p)+':');
//           break;
        }

      }
    }
  }
  if (errors) {
    errors+='\nCorreggere i dati per continuare.\n';
    alert('Sono stati riscontrati i seguenti errori:\n'+errors);
  }
  document.WBR_returnValue = (errors == '');
}
//-->

