function VerifyEmail(form)
		{
			email=document.form1.email.value;
			if(email.indexOf('@',0)==-1 || email.indexOf(';',0)!=-1
			|| email.indexOf(' ',0)!=-1 || email.indexOf('/',0)!=-1
			|| email.indexOf(';',0)!=-1 || email.indexOf('<',0)!=-1
			|| email.indexOf('>',0)!=-1 || email.indexOf('*',0)!=-1
			|| email.indexOf('|',0)!=-1 || email.indexOf('`',0)!=-1
			|| email.indexOf('&',0)!=-1 || email.indexOf('$',0)!=-1
			|| email.indexOf('!',0)!=-1 || email.indexOf('"',0)!=-1
			|| email.indexOf(':',0)!=-1 || email.indexOf('.',0)==-1)
				{
					alert("La dirección de e-mail no es correcta");
					return (false);
				}
			else
			{
				return (true);
			}
		}
		function haydatos (elem)
		{
			if (document.form1[elem].value=="")
				return false;
			else
				return true;
			
		}
	function sintemas ()
	{
		como = false;
		for (i=0;i < document.form1.length; i++)
		{
			if (document.form1[i].type=="checkbox") como = como || document.form1[i].checked;
		}
		return (como);
	}
	function comprobar (obj)
	{
		if (haydatos('usuario') && haydatos ('pass1') && haydatos ('pass2') && haydatos('nombre') && haydatos('apellidos') && haydatos('email') && haydatos('cpostal') && VerifyEmail('form1') && sintemas())
		{
			if (document.form1['pass1'].value==document.form1['pass2'].value)
			{
				return (true);
			}
			else
			{
				alert ("La contraseña y su verificación deben ser iguales");
				return (false);
			}
		}
		else
		{
			alert ("Debe completar todos sus datos personales\ny seleccionar al menos un tema.");
			return (false);
		}
	}
			function haydatos2 (elem)
		{
			if (document.formlog[elem].value=="") return false;
			else return true;
		}
			function comprobar2 (obj)
	{
		if (haydatos2('usuario') && haydatos2('pass'))
		{
			return (true);
		}else{
			alert ("Por favor, complete todos los campos.");
			return (false);
		}
	}
				function haydatosenv (elem)
		{
			if (document.fenv[elem].value=="") return false;
			else return true;
		}
			function comprobarenv (obj)
	{
		if (haydatosenv('nombrerem') && haydatosenv('emailrem') && haydatosenv('nombredest') && haydatosenv('emaildest')&& VerifyEmailenv('fenv'))
		{
			return (true);
		}else{
			alert ("Por favor, complete todos los campos.");
			return (false);
		}
	}
	function VerifyEmailenv(form)
		{
			email=document.fenv.emailrem.value;
			email2=document.fenv.emaildest.value;
			if(email.indexOf('@',0)==-1 || email.indexOf(';',0)!=-1
			|| email.indexOf(' ',0)!=-1 || email.indexOf('/',0)!=-1
			|| email.indexOf(';',0)!=-1 || email.indexOf('<',0)!=-1
			|| email.indexOf('>',0)!=-1 || email.indexOf('*',0)!=-1
			|| email.indexOf('|',0)!=-1 || email.indexOf('`',0)!=-1
			|| email.indexOf('&',0)!=-1 || email.indexOf('$',0)!=-1
			|| email.indexOf('!',0)!=-1 || email.indexOf('"',0)!=-1
			|| email.indexOf(':',0)!=-1 || email.indexOf('.',0)==-1
			|| email2.indexOf('@',0)==-1 || email2.indexOf(';',0)!=-1
			|| email2.indexOf(' ',0)!=-1 || email2.indexOf('/',0)!=-1
			|| email2.indexOf(';',0)!=-1 || email2.indexOf('<',0)!=-1
			|| email2.indexOf('>',0)!=-1 || email2.indexOf('*',0)!=-1
			|| email2.indexOf('|',0)!=-1 || email2.indexOf('`',0)!=-1
			|| email2.indexOf('&',0)!=-1 || email2.indexOf('$',0)!=-1
			|| email2.indexOf('!',0)!=-1 || email2.indexOf('"',0)!=-1
			|| email2.indexOf(':',0)!=-1 || email2.indexOf('.',0)==-1)
				{
					alert("La dirección de e-mail no es correcta");
					return (false);
				}
			else
			{
				return (true);
			}
		}
			function haydatosop (elem)
		{
			if (document.formop[elem].value==""){
				//alert ("Debe rellenar el campo " document.formop[elem]);
				 return false;
			}else{ 
				return true;
			}
		}
			function comprobarop (obj)
	{
		if (haydatosop('email') && VerifyEmailop('formop') && haydatosop('asunto') && haydatosop('texto') )
		{
			return (true);
		}else{
			alert ("Por favor, complete todos los campos.");
			return (false);
		}
	}
	
	function VerifyEmailop(form)
		{
			email=document.formop.email.value;
			if(email.indexOf('@',0)==-1 || email.indexOf(';',0)!=-1
			|| email.indexOf(' ',0)!=-1 || email.indexOf('/',0)!=-1
			|| email.indexOf(';',0)!=-1 || email.indexOf('<',0)!=-1
			|| email.indexOf('>',0)!=-1 || email.indexOf('*',0)!=-1
			|| email.indexOf('|',0)!=-1 || email.indexOf('`',0)!=-1
			|| email.indexOf('&',0)!=-1 || email.indexOf('$',0)!=-1
			|| email.indexOf('!',0)!=-1 || email.indexOf('"',0)!=-1
			|| email.indexOf(':',0)!=-1 || email.indexOf('.',0)==-1)
				{
					alert("La dirección de e-mail no es correcta");
					return (false);
				}
			else
			{
				return (true);
			}
		}