//13/01/2010
<!-- ACIONA ONLOAD
//juntaronload(function(){
//LinksExternos();
//VarreFormulario("form_contato");
//SelecionaMenu("menu","selecao","","s");
//},"")
//--> ACIONA ONLOAD

<!-- EMPILHAR ONLOAD
function juntaronload(funcao,ordem){
var oldonload=window.onload;
if(typeof window.onload != "function"){
window.onload=funcao;
}else if(ordem=="1"){
window.onload=function(){
funcao();
if(oldonload){
oldonload();
}
}
}else{
window.onload=function(){
if(oldonload){
oldonload();
}
funcao();
}
}
}
//--> EMPILHAR ONLOAD

<!-- PREPARA MENU
function SelecionaMenu(menu,estilo,html){
if(document.getElementById(menu)){
var ourl=window.location.href;
var olink=ourl.substring(ourl.lastIndexOf("/")+1);
var no=document.getElementById(menu).getElementsByTagName("a");
for(var i=0;i<no.length;i++){
var omn=no[i];
var omnv=omn.getAttribute("href");
var conteudo=omn.innerHTML;
var klink=omnv.substring(omnv.lastIndexOf("/")+1);
var pai=omn.parentNode;
//if(i==0){pai.className="primeiro";}
if((conteudo.indexOf("<")==-1)&&(conteudo.indexOf(">")==-1)){omn.title=conteudo;}
omn.id=menu+"_"+parseInt(i+1);
if(html!=""){
if(html.indexOf("#")!=-1){
omn.innerHTML=html.replace(/[#]+/g,conteudo);
}else{
omn.innerHTML=html+conteudo;
}
}
if((klink==olink)||((olink=="")&&(klink=="index.html"))||((ourl.indexOf("/itm/item_")!=-1)&&(klink=="pagina.html"))){
if((html!="")&&(html.indexOf("*")!=-1)){omn.innerHTML=omn.innerHTML.replace("*","<span class='indicador'></span>");}
if(estilo!=""){omn.className=estilo;}
}
if((html!="")&&(html.indexOf("*")!=-1)){omn.innerHTML=omn.innerHTML.replace(/[*]+/g,"");}
}
}
}
//--> PREPARA MENU

<!-- VERIFICA FORM
function VarreFormulario(forme){
var form=TransformaObjeto(forme);
if(document.getElementById("limpar")){
var botao=form.limpar;
var pai=botao.parentNode;
pai.removeChild(botao);
var novoBotao=document.createElement("button");
novoBotao.setAttribute("type","button");
novoBotao.setAttribute("id","limpar");
novoBotao.setAttribute("name","limpar");
novoBotao.innerHTML="Limpar";
var limpa=function(){Pagina("contato.html");}
novoBotao.onclick=function(){confirma("Deseja realmente Limpar?",limpa);}
pai.appendChild(novoBotao);
}
if(form){
for(var i=0;i<form.elements.length;i++){
var obje=form.elements[i];
EventosForms(obje);
}
}
}
//--> VERIFICA FORM

<!-- APLICAR EVENTOS DOS FORMS
function EventosForms(objet){
var obj=TransformaObjeto(objet);
if(obj){
if((obj.id=="email")&&(obj.tagName=="INPUT")){
var clk1=function(){obj.value=obj.value.toLowerCase();}
addEvent(obj,"blur",clk1);
var clk2=function(){mascara(obj,email);}
addEvent(obj,"keyup",clk2);
}else if((obj.id=="telefone")&&(obj.tagName=="INPUT")){
var clk1=function(){mascara(obj,telefone);}
addEvent(obj,"keyup",clk1);
}else if((obj.id=="mensagem")&&(obj.tagName=="TEXTAREA")){
var clk1=function(){Contar(obj,"exibicao",1024);}
addEvent(obj,"keyup",clk1);
}
if(obj.tagName=="INPUT"){
var clk3=function(){AutoTAB(obj);}
addEvent(obj,"keyup",clk3);
}
}
}
//--> APLICAR EVENTOS DOS FORMS

<!-- LOCATION
function Pagina(pag){
location.href=pag;
}
//--> LOCATION

<!-- CONFIRMA AÇÃO
function confirma(msg,funcao){
var resposta=confirm(msg);
if(resposta){
funcao();
}else{
return false;
//alert("Nada foi alterado!")
}
}
//--> CONFIRMA AÇÃO

<!-- LINKS EXTERNOS
function LinksExternos(linke){
if(linke==undefined){
var links=document.getElementsByTagName("a");
}else{
var links=document.getElementById(linke).getElementsByTagName("a");
}
for(var i=0; i<links.length; i++ ){
var lnk=links[i].href;
var myLoc = window.location.href;
myLoc = myLoc.replace("http://","");
var myurlParts = myLoc.split("/");
var myurl = myurlParts[0];
if(lnk.indexOf(myurl)==-1){
links[i].target="_blank";
}
}
}
//--> LINKS EXTERNOS

<!-- TRANSFORMA OBJETOS
function TransformaObjeto(obj){
var theObj;
if(document.all){
if(typeof obj=="string"){
return document.all(obj);
}else{
return obj;
}
}
if(document.getElementById){
if(typeof obj=="string"){
return document.getElementById(obj);
}else{
return obj;
}
}
return null;
}
//--> TRANSFORMA OBJETOS

<!-- LIMITA O NUMERO DE CARACTERES NO CAMPO
function Contar(entrada,saida,caracteres){
var entradaObj=TransformaObjeto(entrada);
var saidaObj=TransformaObjeto(saida);
var conteudo=caracteres - entradaObj.value.length;
var texto="Voc&ecirc; ainda pode digitar {CONTADOR} caracteres";
saidaObj.className="comum";
if(conteudo==1){
texto="Voc&ecirc; ainda pode digitar {CONTADOR} caracter";
saidaObj.className="atencao";
}
else if(conteudo==0){
texto="Limite m&aacute;ximo de caracteres alcan&ccedil;ado";
saidaObj.className="alerta";
}
else if(conteudo < 0){
entradaObj.value=entradaObj.value.substr(0,caracteres);
texto="Limite m&aacute;ximo de caracteres atingido!";
saidaObj.className="alerta";
}
saidaObj.innerHTML=texto.replace("{CONTADOR}",conteudo);
}
//--> LIMITA O NUMERO DE CARACTERES NO CAMPO

<!-- PULAR CAMPO
function AutoTAB(inpute){
var input=TransformaObjeto(inpute);
if(input){
if(input.value.length==input.getAttribute("maxlength")){
var form=document.forms[0];
for(i=0; i < form.elements.length; i++){
var element=form.elements[i];
if(form.elements[i+1]){
if(element==input){
var element2=form.elements[i+1];
element2.focus();
break;
}
}
}
}
}
}
//--> PULAR CAMPO

<!-- ADICIONA EVENTOS
function addEvent(obj,evt,fnc){
if(obj.addEventListener){
if(window.opera){
obj.addEventListener(evt,fnc,false)
}else{
obj.addEventListener(evt,fnc,true)
}
}else if(obj.attachEvent){
obj.attachEvent("on"+evt,fnc)
}
}
//addEvent(window,"load",inicio);
//--> ADICIONA EVENTOS

<!-- FUNÇÕES DE MASCARAS DO ÉLCIO
//http://elcio.com.br/ajax/mascara/
function mascara(r,f){
var o=TransformaObjeto(r);
v_obj=o
v_fun=f
setTimeout("execmascara()",1)
}
function execmascara(){
v_obj.value=v_fun(v_obj.value)
}
function soNumeros(v){
return v.replace(/\D/g,"")
}
function cep(v){
v=v.replace(/\D/g,"")
v=v.replace(/^(\d{5})(\d)/,"$1-$2")
return v
}
function data(v){
v=v.replace(/\D/g,"")
v=v.replace(/(\d{2})(\d)/,"$1/$2")
v=v.replace(/(\d{2})(\d)/,"$1/$2")
return v
}
function telefone(v){
v=v.replace(/\D/g,"")
v=v.replace(/^(\d\d)(\d)/g,"($1) $2")
v=v.replace(/(\d{4})(\d)/,"$1-$2")
return v
}
function email(v){
v=v.replace(/[^\w\.\-@]/g,"")
return v
}
//--> FUNÇÕES DE MASCARAS DO ÉLCIO