// Copyright 2000 by CS Traducoes (TM)
// DO NOT use for any purpose without explicitly permit
// web site : http://www.cstraducoes.pt/


function extractParam(params,id)
{	if(! params || params=="") return "";
	indB=params.indexOf("&"+id+"=",0);
	if(indB<0) indB=params.indexOf("?"+id+"=",0);
	if(indB<0) return "";
	indB=indB+id.length+2;
	indE=params.indexOf("&",indB); if(indE<=0) indE=params.length;
	return params.substring(indB,indE);
}
function trim(val)
{	var valS=val.toString();
	if (!valS | valS=="") return "";
	valS = valS.replace(/  +/gi," ");
	var n=0; var nn=valS.length;
	if(valS.indexOf(" ")==0 ) valS=valS.substr(1);
	if(valS.lastIndexOf(" ")==(valS.length-1)) valS=valS.substr(0,valS.length-1);
	return valS;
}
function ValidEmail(val)
{	if (val.indexOf('@',0)<=0 || val.indexOf('@',0)!=val.lastIndexOf('@')) return false;
	if (val.indexOf('.',0)<=0 || val.lastIndexOf('.')>=(val.length-2) || val.lastIndexOf('.')<(val.length-6)) return false;
	if (val.lastIndexOf('.')<=(val.indexOf('@',0)+2)) return false;
	for (i0_ve=0; i0_ve<val.length; i0_ve++)
	{	cCA = val.charCodeAt(i0_ve);
		if ( cCA<45 || cCA==47 || (cCA>57 && cCA<64) || (cCA>90 && cCA<95) || cCA==96 || (cCA>122 && cCA<192) )
			return false;
	}
	return true;
}
function ValidMultiEmail(val)
{	val=val.replace(/ /g,"");
	val=val.replace(/;/g,",");
	var arrayOfEmail = val.split(",");
	for(i0_vme=0;i0_vme<arrayOfEmail.length;i0_vme++) { if(! ValidEmail(arrayOfEmail[i0_vme])) return false; }
	return true;
}
function writeEmail(ndom,nom,ext)
{	nom=nom.replace(/\-/g,"<b><i>-</i></b>"); nom=nom.replace(/_/g,"<b>_</b>"); nom=nom.replace(/\./g,"<b><i>.</i></b>");
	ndom=ndom+"."+ext;
	ndom=ndom.replace(/\-/g,"<b><i>-</i></b>"); ndom=ndom.replace(/_/g,"<b>_</b>"); ndom=ndom.replace(/\./g,"<b><i>.</i></b>");
	document.write(nom);
	document.write("<b>&#");document.write("064;</b>");
	document.write(ndom);
}