function ChecaEmail(campo)
{
	size=campo.value.length;
	i=1;
	numA=0;
	numP=0;
	lugarA=true;
	while (i<=size)
	{
		if (campo.value.charAt(i)!=" ") {
			if (campo.value.charAt(i)=="@") {
				numA++;
				if (campo.value.charAt(i+1)=="")
					lugarA=false;
			}
			if (campo.value.charAt(i)==".") {
				numP++;
				if (campo.value.charAt(i+1)=="")
					lugarA=false;
				if ( (campo.value.charAt(i+1)=="@") || (campo.value.charAt(i-1)=="@") )
					lugarA=false;
		}
	}
	else lugarA=false;
		i++;
	}
	
	if ( (lugarA) && (numA==1) && (numP>0) ){
		return true;
	}
	if (!((size>0) &&(lugarA) && (numA==1) && (numP>0)))	{
		alert ("O e-mail informado esta incorreto.");
		campo.value = "";
		}
	
	campo.focus();
	return false;
}