function Valida ( )
	{
		var d = document.forms.newsletter;
		
		var alerta = "";
		
		if( (d.email.value=='') )
		{
			alerta += "- Por favor, introduce tu email para poder suscribirte a la Newsletter.\n";
		}
		else
		{
			if (!checkMail(String(d.email.value))) 
			{
				alerta += "- Debes introducir una direcci\xf3n de e-mail correcta.\n";
			}
		}
		
		if (!d.avisolegal.checked) 
		{
			alerta += "- Debes leer el aviso legal y aceptarlo.\n";
		}

		if (alerta) 
		{
			alert("Se han encontrado errores en el formulario:\n\n" + alerta);
		} 
		else 
		{
			d.submit();
		}
		
	}
	


// *********************************************************
// **** FUNCIONES DE ABAJO PARA LA VALIDACION DE EMAILS ****
// *********************************************************
function checkName(text)
{
	 	var i,f;
	 	f=1;
	 	var llarg=text.length;	 		 	
	 	for(i=0;i<llarg;i++)
	 	{	
	 		if ( ((text.charAt(i)<'0') || (text.charAt(i)>'9')) && ((text.charAt(i)<'a') || (text.charAt(i)>'z')) && (text.charAt(i)!='.') && (text.charAt(i)!='_') && (text.charAt(i)!='-')){
	 				f=0;
	 		}
	 		
	 		if(text.charAt(llarg-1)=='.') f=0;
	 	}
	 	
	 	if(f==1) return 1;	 	
}

function checkMailPart(text)
{
	 	var i,f;
	 	f=1;
	 	var llarg=text.length;	 		 	
	 	for(i=0;i<llarg;i++)
	 	{	
	 		if ( ((text.charAt(i)<'0') || (text.charAt(i)>'9')) && ((text.charAt(i)<'a') || (text.charAt(i)>'z')) && (text.charAt(i)!='.') && (text.charAt(i)!='-')){
	 			f=0;	 	 						
	 		}
	 	}
	 	if(f==1) return 1;	 	
}


function checkMultipleMails(fname,iname)
{
	var text=eval("document."+fname+"."+iname+".value");
	var arrayMail=text.split(";");
	var lenarray=arrayMail.length;
	var i=0;
	var f=1;
	
	for(i=0;i<lenarray;i++)
	{
		f=checkMail(arrayMail[i]);
		if(f==0) return 0;		
	}
	
	if(f==0) return 0;
	else return 1;	
}


function checkMail(text){
	//var text=eval("document."+fname+"."+iname+".value");
	var llarg=text.length;
	var prtmail1,prtmail2,prtmail3, prtmail2i3, res,posat,pospunt;
	
	// mgd 10/04/06 , SI NO ANADO ESTA LINEA, NO ACEPTA MAYUSCULAS !!!
	text = text.toLowerCase();
		
	//si el text es mes gran que 0
	if (llarg>0){
		//si te una @ i es unica
		if (((text.indexOf("@")!=-1) && (text.indexOf("@")==text.lastIndexOf("@"))))
		{
		    //si almenys el correu te un punt
			if(text.indexOf(".")>0){
					//si la posicio de la @ es anterior al punt.
					if (text.indexOf("@")<text.lastIndexOf("."))
					{
						posat=text.indexOf("@");
						prtmail1=text.substr(0,posat);
						//si la part del mail on va el nom es mes gran que 0
						if (prtmail1.length>0){
							//si es alfanumeric
							if (checkName(prtmail1)){
							   res=1;
							   prtmail2i3=text.substr(posat,llarg);
							   pospunt=prtmail2i3.indexOf(".");
							   prtmail2=prtmail2i3.substr(1,pospunt-1);	
						       prtmail3=prtmail2i3.substr(pospunt+1,prtmail2i3.length);
							   //si la part del mail on va el domini es mes gran que 0
								if (prtmail2.length>0){
									 if (checkMailPart(prtmail2)){ res=1;
										//Part del mail on indica extensio
										if (prtmail3.length>0){
											if (checkMailPart(prtmail3)){ res=1;
											}else res=0;
										}else res=0;
									}else res=0;
								}else res=0;
							}else res=0;
						}else res=0;
					}else res=0;	
			}else res=0;
		}else res=0;
	}else res=0;	
	return(res);
}