Suporte

Lista dos componentes ASP disponíveis nos servidores

Busca de CEP em ASP

Como efetuar busca de CEP ou logradouro em ASP

Para efetuar a busca de CEP você pode utilizar nosso componente de CEP, que busca em nossas bases internas o dados solicitados.

Para buscar um endereço a partir de um CEP, basta utilizar o código de exemplo abaixo:



Dim oCEP  
Set oCEP = Server.CreateObject("Correios.CEP")  

If oCEP.EncontraCEP("01311-900") Then  
  Response.Write "<p>Endereco: " & oCEP.Endereco & "<br />"  
  Response.Write "EnderecoAbrev: " & oCEP.EnderecoAbrev & "<br />"  
  Response.Write "Usuario: " & oCEP.Usuario & "<br />"  
  Response.Write "TipoLogradouro: " & oCEP.TipoLogradouro & "<br />"  
  Response.Write "TipoLogradouroAbrev: " & oCEP.TipoLogradouroAbrev & "<br />"  
  Response.Write "Logradouro: " & oCEP.Logradouro & "<br />"  
  Response.Write "LogradouroAbrev: " & oCEP.LogradouroAbrev & "<br />"  
  Response.Write "Complemento: " & oCEP.Complemento & "<br />"  
  Response.Write "Localidade: " & oCEP.Localidade & "<br />"  
  Response.Write "Cidade: " & oCEP.Cidade & "<br />"  
  Response.Write "Bairro: " & oCEP.Bairro & "<br />"  
  Response.Write "Bairro1: " & oCEP.Bairro1 & "<br />"  
  Response.Write "Bairro2: " & oCEP.Bairro2 & "<br />"  
  Response.Write "BairroAbrev: " & oCEP.BairroAbrev & "<br />"  
  Response.Write "Bairro1Abrev: " & oCEP.Bairro1Abrev & "<br />"  
  Response.Write "Bairro2Abrev: " & oCEP.Bairro2Abrev & "<br />"  
  Response.Write "Estado: " & oCEP.Estado & "</p>"  
Else  
  Response.Write "<p>CEP não encontrado</p>"     
End If  
Set oCEP = Nothing  

Para efetuar a busca por um logradouro e localizar todos os CEP's do mesmo, basta utilizar como modelo o código abaixo, lembrando que o formato padrão de retorno é de um objeto Recordset do ADO (Referência):



Dim oCEP, rsDados
Set oCEP = Server.CreateObject("Correios.CEP")  
Set rsDados = oCEP.EncontraEndereco("SP", "São Paulo", "Paulista")

If Not rsDados.EOF Then  
  Response.Write "<p>Logradouros encontrados:</p>"  
  Response.Write "<table><thead>"  
  Response.Write "<tr><th>Endereço</th><th>CEP</th><th>Bairro</th></tr>"  
  Response.Write "</thead><tbody>"  
  Do Until rsDados.EOF   
    Response.Write "<tr><td>" & rsDados("Endereco") & "</td>"  
    Response.Write "<td>" & rsDados("CEP") & "</td>"  
    Response.Write "<td>" & rsDados("Bairro") & "</td></tr>"  
    rsDados.MoveNext  
  Loop  
  Response.Write "</tbody></table>"  
Else  
  Response.Write "<p>Logradouro não encontrado</p>"     
End If  
Set oCEP = Nothing
Atenção: este sistema consulta uma base local, portanto, CEPs novos criados pelos Correios podem estar fora desta base. Caso sua busca não encontre o CEP desejado, recomendamos que permita ao usuário entrar com os dados de endereço manualmente.
Atenção: As instruções desta página são exclusivas para os Planos de hospedagem na plataforma Windows.

Contrate agora e tenha até 60 dias gratis para testar!

Digite um domínio para pesquisar
Domínios hospedados
Clientes satisfeitos