function comprueba_email(cadena) 
  {
	/* Comprueba que las direcciones e-mail tengan el siguiente formato:
		cadena@(cadena.cadena)+     er = /\w+@(\w+\.\w+)+/ 
	*/

	    er = /\w+@(\w+(\-\w+)*\.\w+)+/

 	     if (cadena.length==0)
	          { 
    	            /* window.alert ("Tienes que escribir tu E-MAIL !"); */
       	 	return(0);
    	          } 	    
	      else
	      {
 	         OK =er.test(cadena);
	         if (!OK)
	          {
      	            /* window.alert (cadena+ " no es una direccion e-mail válida!"); */
		return(0); 
 	          }
	       }

 }