////////////////////////////////////////////////////////////////////////////
// Validação de e-mail by Alfred Reinold Baudisch, V. 1.0 (21/05/2001)    //
// E-mail: alfred.hpg@swi.com.br - http://www.blackmetal.com.br           //
////////////////////////////////////////////////////////////////////////////

// Verifica se tem um e-mail digitado, com @, ponto no local correto, etc...
function checkEmail(o_email)
{
var sim_nao = true
// Verifica o @
var arroba = o_email.indexOf("@");
// Verifica o último ponto
var ponto = o_email.lastIndexOf(".");
// Verifica se há espaços
var spaco = o_email.indexOf(" ");
// 1ª: verifica se existe arroba no e-mail
// 2ª: Arroba não deve ser o primeiro caractere
// 3ª: Deve existir "."
// 4ª: O ponto deve ser uma posição maior onde encontra-se o "@"
// 5ª: O ponto não deve ser o último caractere
// 6ª: Não deve existir espaço
if ((o_email.indexOf("á")==-1) && (o_email.indexOf("à")==-1) && (o_email.indexOf("ã")==-1) && (o_email.indexOf("â")==-1) && (o_email.indexOf("é")==-1) && (o_email.indexOf("í")==-1) && (o_email.indexOf("ó")==-1) && (o_email.indexOf("õ")==-1) && (o_email.indexOf("ô")==-1) && (o_email.indexOf("ú")==-1) && (o_email.indexOf("ü")==-1) && (arroba != -1) && (arroba != 0) && (ponto != -1) && (ponto > arroba + 1) && (ponto < o_email.length - 1) && (spaco == -1) &&
(o_email.indexOf("{")==-1) && (o_email.indexOf("}")==-1) && (o_email.indexOf("(")==-1) && (o_email.indexOf(")")==-1) && (o_email.indexOf("<")==-1) && (o_email.indexOf(">")==-1) && (o_email.indexOf("[")==-1) && (o_email.indexOf("]")==-1) && (o_email.indexOf("|")==-1) && (o_email.indexOf("\"")==-1) && (o_email.indexOf("/")==-1))
{
return true;
}
else
{
return false;	
}

}