function conta_caracter(formu, campo, limite) {
	var usado = document.forms[formu].elements[campo].value.length;
	var faltando = limite - usado;

	if (faltando > 0) {
		document.forms[formu].elements[campo+'_contador'].value = limite - usado;
		return true;
	} else {
		document.forms[formu].elements[campo+'_contador'].value	= 0;
		document.forms[formu].elements[campo].value = document.forms[formu].elements[campo].value.substr(0, limite);
		return false;
	}
}

function checkall(controle, checkbox) {
	var varcheckallpagina = document.getElementsByTagName("input");
	for (p=0; p<varcheckallpagina.length; p++){
		if (varcheckallpagina[p].id.substr(0, checkbox.length) == checkbox) {
			document.getElementById(varcheckallpagina[p].id).checked = document.getElementById(controle).checked;
		}
	}
}

function fale()
{DocRemote = window.open ('http://www.evb.com.br/falex.php','','width=575,height=311');}

function fale1()
{DocRemote = window.open ('http://www.evb.com.br/english/falex_e.php','','width=575,height=311');}

function entre()
{DocRemote = window.open ('http://www.evb.com.br/entrex.php','','width=575,height=311');}

function fecha() 
{DocRemote = window.close();}

function emailCheck (emailStr) {
var emailPat=/^(.+)@(.+)$/;
var specialChars="\\(\\)<>@,;:\\\\\\\"\\.\\[\\]";
var validChars="\[^\\s" + specialChars + "\]";
var quotedUser="(\"[^\"]*\")";
var ipDomainPat=/^\[(\d{1,3})\.(\d{1,3})\.(\d{1,3})\.(\d{1,3})\]$/;
var atom=validChars + '+';
var word="(" + atom + "|" + quotedUser + ")";
var userPat=new RegExp("^" + word + "(\\." + word + ")*$");
var domainPat=new RegExp("^" + atom + "(\\." + atom +")*$");
var matchArray=emailStr.match(emailPat);
if (matchArray==null) {
alert("Endereço de email parece incorreto (confira @, domínio, servidor, carcateres, válidos e etc.)");
return false;
}

var user=matchArray[1];
var domain=matchArray[2];
if (user.match(userPat)==null) {
    alert("O username não parece ser válido.");
    return false;
}

var IPArray=domain.match(ipDomainPat);
if (IPArray!=null) {
  for (var i=1;i<=4;i++) {
    if (IPArray[i]>255) {
        alert("Destino com endereço de IP é nulo!");
return false;
    }
    }
    return true;
}
var domainArray=domain.match(domainPat);
if (domainArray==null) {
alert("O nome de domínio não é válido.");
    return false;
}
var atomPat=new RegExp(atom,"g");
var domArr=domain.match(atomPat);
var len=domArr.length;
if ((domArr[domArr.length-1] != "info") &&
(domArr[domArr.length-1] != "name") &&
(domArr[domArr.length-1] != "arpa") &&
(domArr[domArr.length-1] != "coop")) {
if (domArr[domArr.length-1].length<2 ||
    domArr[domArr.length-1].length>3) {
   alert("O endereço tem que terminar em um domínio de três caracteres, ou dois caracteres para o país.");
   return false;
}
}
if (len<2) {
   var errStr="Este endereço está sem o hostname!";
   alert(errStr);
   return false;
}
return true;
}

function UPTvalidateform(thisform)
{
if(thisform.nome.value=="")
{
alert("O campo 'Nome' deve ser preenchido");
return true;
}

if(thisform.assunto.value=="")
{
alert("O campo 'Assunto' deve ser preenchido");
return true;
} 

if(thisform.txt256.value=="")
{
alert("É necessário digitar uma mensagem sobre o assunto");
return true;
}

if(thisform.nome.value==" ")
{
alert("O campo 'Nome' deve ser preenchido");
return true;
}

if(thisform.assunto.value==" ")
{
alert("O campo 'Assunto' deve ser preenchido");
return true;
} 

if(thisform.txt256.value==" ")
{
alert("É necessário digitar uma mensagem sobre o assunto");
return true;
}

if (emailCheck(thisform.email.value))
{
return false;
}
else
{
return true;
}
}