function ValidaEmail()
	{

	var sMensagem;
	
	// Inicializo a mensagem com vazio
	sMensagem = "";
	
	// Agora vou testar se os campos obrigatórios estão preenchidos
	// Os que não estiverem, vou acumulando na mensagem de erro.
	if ( ( document.mail.fsEmail.value == null) || ( document.mail.fsEmail.value == "" ) )
		{
		sMensagem += "Required information for email field\n";
		}
	else
		{
		if ( ! checkmail(document.mail.fsEmail.value ) )
			{
			sMensagem += "Invalid email\n";
			}
		}
	if ( sMensagem != "" && sMensagem != null )
		{
		alert( sMensagem );
		return false;
		}
	else
	   {
		return true;
		}
	}	
/*------------------------------------------------------------------------
| FUNCAO:
|			checkmail()
|
| OBJETIVO:
|			Utilizada para criticar se campo de email esta correto
|
| RECEBE:
|       campo de email
------------------------------------------------------------------------*/
function checkmail(Email) 
{ 
	var find_ponto=false;
	var find_arroba=false;
	var find_caracter=true;
	var find_colon=true;
	for (var i=0; i< Email.length; i++) 
	{
		if (Email.charAt(i)=="@") find_arroba=true;
		else if (Email.charAt(i)==".") find_ponto=true;
		else if (Email.charAt(i)==" ") find_caracter=false;
		else if (Email.charAt(i)==",") find_colon=false;
	}
	return (find_ponto & find_arroba & find_caracter & find_colon);
}