| Endereços do Brasil |
| |
Com este webservice você poderá retornar o logradouro, bairro, cidade e estado de um determinado CEP diretamente para seu site.
Você pode setar o charset do XML de retorno, o padrão é UTF-8 e atualmente você pode setar para ISO-8859-1
Abaixo seguem as informações de requisição e resposta.
|
| |
| REQUISIÇÃO E LEITURA DO XML: |
<%
cep = replace(Request.QueryString("cep"),"-","") 'sempre envie o cep sem separadores, somente números
if cep <> "" and isNumeric(cep) then
Set objXmlHttp = Server.CreateObject("MSXML2.XMLHTTP")
Set objXmlDoc = Server.CreateObject("MSXML2.DOMDocument.3.0")'("MSXML2.DOMDocument") ("Microsoft.XMLDOM")
objXmlDoc.async = False
urlBuscaCep= "http://www.allmarketweb.com/webservice/cep/executaRetornoEndereco.asp?cep="&cep&"&charset=2" 'O charset 2 corresponde a ISO-8859-1
objXMLHttp.Open "GET", urlBuscaCep, False
objXMLHttp.Send
if objXmlHttp.statusText="OK" then
objXmlDoc.loadXML(objXmlHttp.responseText)
if TypeName(objXmlDoc) = "DOMDocument" then 'armazenamos em variaveis o retorno do xml
retorno = objXmlDoc.selectSingleNode("/retornoCep/retorno").text
erro = objXmlDoc.selectSingleNode("/retornoCep/erro").text
tipo = objXmlDoc.selectSingleNode("/retornoCep/tipo").text
endereco = objXmlDoc.selectSingleNode("/retornoCep/endereco").text
bairro = objXmlDoc.selectSingleNode("/retornoCep/bairro").text
cidade = objXmlDoc.selectSingleNode("/retornoCep/cidade").text
estado = objXmlDoc.selectSingleNode("/retornoCep/estado").text
cep = objXmlDoc.selectSingleNode("/retornoCep/cep").text
if len(trim(tipo))=2 then tipo = uCase(left(tipo,1))&lCase(right(tipo,1))
end if
end if
'escrevemos as variaveis
Response.Write("retorno: "&retorno&"<br>")
Response.Write("erro: "&erro&"<br>")
Response.Write("tipo: "&tipo&"<br>")
Response.Write("endereco: "&endereco&"<br>")
Response.Write("bairro: "&bairro&"<br>")
Response.Write("cidade: "&cidade&"<br>")
Response.Write("cep: "&cep&"<br>")
set objXmlHttp = nothing
set objXmlDoc = nothing
end if
%>
|
|
| |
| RESPOSTA XML: |
<?xml version="1.0" encoding="utf-8"?>
<retornoCep>
<retorno>True</retorno>
<erro></erro>
<tipo>R</tipo>
<endereco>Coronel Massot</endereco>
<bairro>Cristal</bairro>
<cidade>Porto Alegre</cidade>
<estado>RS</estado>
<cep>91910530</cep>
</retornoCep>
|
|
| |
| BUSCA DE CEPS POR LOGRADOURO |
| |
Você pode ainda ter um formulário de pesquisa de logradouros em seu site. Adicione o link http://www.allmarketweb.com/webservice/cep/formBuscaCep.asp no seu site. Você poderá setar o Estado a ser exibido no primeiro carregamento e colocar o nome do seu site no cabeçalho, basta passar no link os parâmetros na querystring desta forma:
http://www.allmarketweb.com/webservice/cep/formBuscaCep.asp?estado=PR&site=Nome do meu site aqui
Clique aqui para testar o formulário
|
| |
| Para personalizar seu formulário de pesquisa o código abaixo deve ser utilizado passando os parametros conforme o exemplo. O objeto xmlhttp retornará uma tabela com 3 colunas listando o resultado e paginando. A paginação sempre retornará a querystring identica a que é enviada. A url de retorno será o nome do seu site(sem http://) mais o nome da página que contem o código de busca do CEP e sempre deverá ser informada, bem como o logradouro e o estado. Os demais dados são opcionais. |
<%
if estado<>"" and len(logradouro)>4 then
Set objXmlHttp = Server.CreateObject("MSXML2.XMLHTTP")
urlBuscaCep = "http://www.allmarketweb.com/webservice/cep/executaBuscaCep.asp?&urlRetorno=www.meusite.com/meuFormulario.asp&logradouro=" &logradouro&"&estado="&estado&"&ordem="&ordem&"&desc_asc="&desc_asc&"&charset="&charset&"&site="&site&"&pagina="&pagina&""
objXMLHttp.Open "GET", urlBuscaCep, False
objXMLHttp.Send
if objXmlHttp.statusText="OK" then
msg = objXmlHttp.responseText
else
msg="Logradouro não encontrado"
end if
set objXmlHttp = nothing
elseif len(logradouro)<5 and len(logradouro)>0 then
msg="Digite no mínimo 5 letras no logradouro"
end if
%> |
|
| |
| Este é um serviço oferecido gratuitamente e não tem fins lucrativos. Ajude-nos a manter nossa base de dados sempre atualizada, informe os endereços não encontrados que os mesmos serão analisados e adicionados ao banco de dados. |
| |
| |