var ajax;
var CampoResultado;
var CampoResultadoVer;
var bExibeCarrega;
var Status = 0;

function ValidaCampos(pStrValor,pCampoResultado){ 
	var url = "/scripts/funcoes/valida.asp";
	CampoResultadoVer = pCampoResultado + '_ver';
	bExibeCarrega = false;
	CampoResultado = pCampoResultado;
    ajax = CriaXML();
	if(ajax){
		ajax.open("GET", url + '?' + pStrValor, true);
		ajax.onreadystatechange = ExibeResultado;
		ajax.send();
	}else{
		ajax.send(null);
	}
} 

function AtualizaCombo(pStrValor,pCampoResultado){ 
	var url = "/scripts/funcoes/atualiza_combo.asp";
	CampoResultadoVer = '';
	bExibeCarrega = false;
	CampoResultado = pCampoResultado;
    ajax = CriaXML();
	if(ajax){
		ajax.open("GET", url + '?' + pStrValor, true);
		ajax.onreadystatechange = ExibeResultado;
		ajax.send();
	}else{
		ajax.send(null);
	}
} 

function ExibeResultado() { 

	var IDResultado = document.getElementById(CampoResultado); // div que exibirá o resultado
    
	if(ajax.readyState == 1 && bExibeCarrega == true) { // Exibe carregando...
		IDResultado.innerHTML = "<span class='legenda'>carregando...</span>";
	}	
	// Quando o estado for "completado" 
    if (ajax.readyState == 4) { 
        // apenas se o servidor retornar "OK" 
        if (ajax.status == 200) { 
            // insere o conteudo no campo resultado
			var resultado = ajax.responseText;
			resultado = resultado.replace(/\+/g," "); // Resolve o problema dos acentos
			resultado = unescape(resultado); // Resolve o problema dos acentos
            IDResultado.innerHTML = resultado; 
			if (CampoResultadoVer != "" && CampoResultadoVer != null){
				document.getElementById(CampoResultadoVer).value=resultado;
			}
			Status = 1;
        } else { 
            alert("Houve um problema ao obter os dados:\n" + ajax.statusText); 
			//IDResultado.innerHTML = resultado;
        } 
	}
} 

function CriaXML(){
	var xml;

	try{
		xml = new XMLHttpRequest(); // Firefox, Safari, etc.
	}catch(ee){
		try{
			xml = new ActiveXObject("Msxml2.XMLHTTP"); // IE
		}catch(e){
			try{
				xml = new ActiveXObject("Microsoft.XMLHTTP"); // IE
			}catch(E){
				xml = false;
			}
		}
	}
	return xml;
}