function contrMList(){
	var i;
	var str_obbl="**** ATTENZIONE ****\n Sono stati rilevati i seguenti errori:\n";	
	var status_obbl=true;
	var status=true;
	var str_err="";
	var primoerr=-1;
	with(document.campi){
		

if(email.value==""){
            str_obbl+="- E-mail mancante.\n";
            status_obbl=false;
			if(primoerr==-1) {
				primoerr=1;
				email.focus();
			}
        }else{				
			var ultpto=email.value.substring(email.value.length-3,email.value.length);
			var indpto=ultpto.indexOf('.');
			var pos=-2;
			if(indpto==-1){
				ultpto=email.value.substring(email.value.length-4,email.value.length);
				indpto=ultpto.indexOf('.');					
				pos=-3;
			}			
			var pe=email.value.length+pos-1;
			var atr=email.value.indexOf('@');
			var nome=email.value.substring(0,atr);
			var server=email.value.substring(atr+1,pe);
			var dominio=email.value.substring(email.value.length+pos,email.value.length);
			if((indpto==-1) || (atr==0)){
				str_obbl+="- Email non valida: nomedest@nomeserver.dominio\n";
				status_obbl=false; 
				if(primoerr==-1) {
					primoerr=1;
					email.focus();
				}
			}else{
				if(nome.length<3){
					str_obbl+="- Email non valida: nome destinatario non corretto.\n";
					status_obbl=false; 
					if(primoerr==-1) {
						primoerr=1;
						email.focus();
					}
				}			
				if(server.length<3){
					str_obbl+="- Email non valida: nome server non corretto.\n";
					status_obbl=false; 
					if(primoerr==-1) {
						primoerr=1;
						email.focus();
					}
				}	
				if((indpto==1) || (dominio.length<2)) {
					str_obbl+="- Email non valida: dominio non corretto.\n";
					status_obbl=false; 
					if(primoerr==-1) {
						primoerr=1;
						email.focus();
					}
				}			
			}
		}			
		if(status_obbl==false){
			if(status_obbl==false){
				str_err+=str_obbl;
				str_err+="\n\n";
			}			
			alert(str_err);
			status=false;
		}
	return status;
    }
}