Ajax+asp = busca de CEP

[lisa 0]

Bom, pessoal.. eu sei que esse assunto vira e mexe esta sendo postado aqui no forum...

 

fiz umas buscas, vi vários codigos diferentes e nada!

 

Eu tinha um script que funcionava perfeitamente a busca de CEP, porém o endereço que fazia a busca saiu do ar!!!

 

Eu queria fazer exatamente isso: http://www.laroya.com.br/cadastro.asp

 

Segue o meu código:

 

 

leitor.asp

 

 

<%Response.Charset="ISO-8859-1" ' Script ASP para requisição de dados de CEP de uma página pré-configurada.' caso você use um site na locaweb, crie o arquivo de cima e altere o endereço abaixo para a página correta!'senao, deixa como está.url = "http://republicavirtual.com.br/web_cep.php?cep="& Replace(Request("CEP"),"'","''")' Criando Objeto XMLSet objXML = Server.CreateObject("MSXML2.XMLHTTP")' Enviando o pedido dos dadosobjXML.open "GET",url,falseObjXML.Send()	Response.Write objXML.responseTextSet objXML = Nothing%>

 

---------------

 

formulario.asp

 

<script type="text/javascript">function verifica(event){var keyCode = event.keyCode ? event.keyCode : event.which ? event.which : event.charCode;var caract = new RegExp(/[0-9]+$/i);var caract = caract.test(String.fromCharCode(keyCode));if(!caract){//alert("Caracter inválido: " +String.fromCharCode(keyCode));keyCode=0;return false;}}</script><script type="text/javascript">function addEvent(obj, evt, func) {  if (obj.attachEvent) {	return obj.attachEvent(("on"+evt), func);  } else if (obj.addEventListener) {	obj.addEventListener(evt, func, true);	return true;  }  return false;}function XMLHTTPRequest() {  try {	return new XMLHttpRequest(); // FF, Safari, Konqueror, Opera, ...  } catch(ee) {	try {	  return new ActiveXObject("Msxml2.XMLHTTP"); // activeX (IE5.5+/MSXML2+)	} catch(e) {	  try {		return new ActiveXObject("Microsoft.XMLHTTP"); // activeX (IE5+/MSXML1)	  } catch(E) {		return false; // doesn't support	  }	}  }}function buscarEndereco() {  var campos = {	cep: document.getElementById("cep"),	logradouro: document.getElementById("logradouro"),	//numero: document.getElementById("numero"),	bairro: document.getElementById("bairro"),	localidade: document.getElementById("localidade"),	uf: document.getElementById("uf")  };  var ajax = XMLHTTPRequest();  ajax.open("GET", ("leitor.asp?cep=" + campos.cep.value.replace(/[^\d]*/, "")), true);  ajax.onreadystatechange = function() {	if (ajax.readyState == 1) {	  campos.logradouro.disabled = true;	  campos.bairro.disabled = true;	  campos.localidade.disabled = true;	  campos.uf.disabled = true;	  campos.logradouro.value = "carregando...";	  campos.bairro.value = "carregando...";	  campos.localidade.value = "carregando...";	  //campos.uf.value = "carregando...";	} else if (ajax.readyState == 4) {	  var r = ajax.responseText, i, logradouro, bairro, localidade, uf;	  logradouro = r.substring(0, (i = r.indexOf(',')));	  r = r.substring(++i);	  bairro = r.substring(0, (i = r.indexOf(',')));	  r = r.substring(++i);	  localidade = r.substring(0, (i = r.indexOf(',')));	  r = r.substring(++i);	  uf = r.substring(0, (i = r.indexOf(',')));	  //r = r.substring(++i);	  campos.logradouro.disabled = false;	  campos.bairro.disabled = false;	  campos.localidade.disabled = false;	  campos.uf.disabled = false;	  campos.logradouro.value = logradouro;	  campos.bairro.value = bairro;	  campos.localidade.value = localidade;	  //campos.uf.value = uf;	  	  i = campos.uf.options.length;	  while (i--) {	   if (campos.uf.options[i].getAttribute("value") == uf) {		  break;		}	  }	  campos.uf.selectedIndex = i;	}  };  ajax.send(null);}window.addEvent(  window,  "load",  function() {window.addEvent(document.getElementById("cep"), "blur", buscarEndereco);});	</script>		<form name="form" id="form" action="#" method="post">	<table width="253" border="0">	  <tr>		<td colspan="2"><strong>		  <label for="cep">CEP Residencial: <br>		  </label>		  		<input name="cep" type="text" id="cep" onKeypress="return verifica(event);" maxlength="8" />		</strong></td>	  </tr>	  <tr>		<td width="154"><strong>		  <label for="logradouro">Endereço:</label>		  <br>		  <input name="logradouro" type="text" class="campo3" id="logradouro" />		</strong></td>		<td width="89"><strong>		  <label for="numero" class="numero">Numero:<br>		  </label>		  <input name="numero" type="text" id="numero" size="7" />		</strong></td>	  </tr>	  <tr>		<td colspan="2"><strong>		  <label for="bairro">Bairro:</label>		  <br>		  <input name="bairro" type="text" id="bairro" />		</strong></td>	  </tr>	  <tr>		<td colspan="2"><strong>		  <label for="localidade">Cidade:</label>		  <br>		  <input name="localidade" type="text" id="localidade" />		</strong></td>	  </tr>	  <tr>		<td colspan="2"><strong>		  <label for="uf" class="uf">Estado:</label>		  <br>		 <select name="select2" id="uf">			<option value="">-- selecione --</option>			<option value="AC">Acre</option>			<option value="AL">Alagoas</option>			<option value="AP">Amapá</option>			<option value="AM">Amazonas</option>			<option value="BA">Bahia</option>			<option value="CE">Ceará</option>			<option value="DF">Distrito Federal</option>			<option value="ES">Espírito Santo</option>			<option value="GO">Goiás</option>			<option value="MA">Maranhão</option>			<option value="MT">Mato Grosso</option>			<option value="MS">Mato Grosso do Sul</option>			<option value="MG">Minas Gerais</option>			<option value="PA">Pará</option>			<option value="PB">Paraíba</option>			<option value="PR">Paraná</option>			<option value="PE">Pernambuco</option>			<option value="PI">Piauí</option>			<option value="RJ">Rio de Janeiro</option>			<option value="RN">Rio Grande do Norte</option>			<option value="RS">Rio Grande do Sul</option>			<option value="RO">Rondônia</option>			<option value="RR">Roraima</option>			<option value="SC">Santa Catarina</option>			<option value="SP">São Paulo</option>			<option value="SE">Sergipe</option>			<option value="TO">Tocantins</option>		  </select>		</strong></td>	  </tr>	</table>  </form>

 

- Quando eu digito um CEP nada acontece!!

 

Quem puder ajudar eu agracedo...

[Rodrigo1 0]

Velho...

se o seu servidor é locaweb...tem um prontinho lá...

vou disponibilizar pra você mais nao sei se o servidor q você usa tem o componente...

<%@language="vbScript"%><%Option Explicit%><html><head><% Dim Cep_Busca, endereco, cidade, estado, bairro, CEP_Obj, Erro_Descricaocep_busca = Request.Form("cep") Set CEP_obj = CreateObject("Correios.CEP") CEP_obj.EncontraCEP(cep_busca) 'If CEP_obj.Erro = 0 Then endereco = CEP_obj.Endereco bairro = CEP_obj.Bairro cidade = CEP_obj.Cidade estado = CEP_obj.Estado 'Else erro_descricao = CEP_obj.DescricaoErro 'Response.Redirect("../htm/erro.asp?msg="&erro_descricao&"") 'End If Set CEP_obj = Nothing%><title>- Manacá® -</title><link href="../css/solo.css" rel="stylesheet" type="text/css" /><link href="../css/car.css" rel="stylesheet" type="text/css" /><link href="../css/template_solo.css" rel="stylesheet" type="text/css" /><script src="../Scripts/AC_RunActiveContent.js" type="text/javascript"></script></head> <body><div align="center" class="align"><div align="center" class="center"><p>  <%On Error Resume NextResponse.Buffer = True%></p>  <div id="top"></div>  <div id="topo">	<script type="text/javascript">AC_FL_RunContent( 'codebase','http://download.macromedia.com/pub/shockwave/cabs/flash/swflash.cab#version=7,0,19,0','width','250','height','75','src','../flash/site_back','quality','high','pluginspage','http://www.macromedia.com/go/getflashplayer','movie','../flash/site_back' ); //end AC code</script><noscript><object classid="clsid:D27CDB6E-AE6D-11cf-96B8-444553540000" codebase="http://download.macromedia.com/pub/shockwave/cabs/flash/swflash.cab#version=7,0,19,0" width="250" height="75">  <param name="movie" value="../flash/site_back.swf" />  <param name="quality" value="high" />  <embed src="../flash/site_back.swf" quality="high" pluginspage="http://www.macromedia.com/go/getflashplayer" type="application/x-shockwave-flash" width="250" height="75"></embed>  </object>  </noscript>  </div>  <div id="menu">	<script type="text/javascript">AC_FL_RunContent( 'codebase','http://download.macromedia.com/pub/shockwave/cabs/flash/swflash.cab#version=7,0,19,0','width','770','height','35','src','../flash/menu','quality','high','pluginspage','http://www.macromedia.com/go/getflashplayer','movie','../flash/menu' ); //end AC code</script><noscript><object classid="clsid:D27CDB6E-AE6D-11cf-96B8-444553540000" codebase="http://download.macromedia.com/pub/shockwave/cabs/flash/swflash.cab#version=7,0,19,0" width="770" height="35">  <param name="movie" value="../flash/menu.swf" />  <param name="quality" value="high" />  <embed src="../flash/menu.swf" quality="high" pluginspage="http://www.macromedia.com/go/getflashplayer" type="application/x-shockwave-flash" width="770" height="35"></embed>  </object></noscript>  </div>  <div class="cantos">	</div>  <div id="conteudo">		<h1>- Localizar Endereço -</h1>	<form action="loca_cep.asp" method="post" name="form1">	  Digite o Cep(Só os Nºs) 		<input name="cep" type="text" id="cep" size="8" maxlength="8" />		  		 <input name="Submit" type="submit" class="bt" value="Encontrar Endereço" />		<br />	</form>	<form action="sac.asp" method="post"><table width="253" border="1" class="car_tr" align="center">	  <tr>		<td width="106">Cep</td>		<td width="131"><%=cep_busca%>		  <input name="cep" type="hidden" id="cep" value="<%=cep_busca%>" /></td>	  </tr>	  <tr>		<td>Endereço</td>		<td><%=endereco%>		  <input name="endereco" type="hidden" id="endereco" value="<%=endereco%>" /></td>	  </tr>	  <tr>		<td>Bairro</td>		<td><%=bairro%>		  <input name="bairro" type="hidden" id="bairro" value="<%=bairro%>" /></td>	  </tr>	  <tr>		<td>Cidade</td>		<td><%=Cidade%>		  <input name="cidade" type="hidden" id="cidade" value="<%=cidade%>" /></td>	  </tr>	  <tr>		<td>Estado</td>		<td><%=Estado%>		  <input name="estado" type="hidden" id="estado" /></td>	  </tr>	</table><br /><%=erro_descricao%><br /><br /><input type="submit" name="Submit2" value="Voltar para o Cadastro" />	</form>	<div id="under_menu">	  <p>	  <br />	  <a href="convencionais.asp">Coroas Convencionais</a> <a href="luxo.asp">Coroas de Luxo</a> <a href="euro.asp">Coroas Européias</a> <a href="http://www.manacaflores.com.br" target="_blank">Flores em Geral</a> <a href="../asp/sac.asp">S.A.C </a></p>  </div>  </div>  <div class="cantos2"></div>    <div id="flor"></div>  <div id="rodape"> - Manacá® -</div></div></div></body></html><%If Err.Number <> 0 Then 	Response.Clear	Session.Abandon	Response.Write "Erro(Refresh)-" & Err.Description	Response.FlushElse	Response.FlushEnd If%>

[lisa 0]

Obrigada.. mas você sabe de algum componente que não seja este da locaweb??

[FACS 0]

Visite o site

http://www.republicavirtual.com.br/cep/exemplos.php