Como buscar um CEP ou nome de rua em ASP

Introdução

Este tutorial demonstra como implementar a busca de CEP e de Endereços em seu site através da linguagem ASP (Active Server Pages).

O código apresentado neste artigo utiliza um componente COM desenvolvido pela equipe da MCO2 e que é exclusivo para clientes. Caso seu site ainda não esteja conosco, transfira sua hospedagem para a MCO2 e ganhe até 60 dias de hospedagem gratuita.

Código Pronto para Uso

Veja abaixo como integrar o componente de busca por CEP e por logradouro usando ASP.

Busca por CEP

Dim oCEP
Set oCEP = Server.CreateObject("Correios.CEP")
If oCEP.EncontraCEP("01310900") 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

Busca por Logradouro

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

Explicando o Código

Busca por CEP

Inclusão do componente: O primeiro passo é incluir o componente de busca de CEP, que permite o acesso às funcionalidades necessárias para realizar a busca.

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

Instanciação do objeto CEP: Aqui, criamos uma instância do objeto CEP que será usado para realizar as buscas de CEP específico.

If oCEP.EncontraCEP("01310900") Then

Executando a busca: Com o objeto criado, chamamos o método 'EncontraCEP' com o CEP desejado como argumento, o que dispara a busca pelo endereço correspondente.

  Response.Write "<p>Endereco: " & oCEP.Endereco & "<br />"

Exibindo os resultados: Cada chamada ao método Response.Write gera uma linha de informação sobre o endereço buscado, como endereço completo, abreviações, tipo de logradouro, complementos e detalhes regionais.

  Response.Write "<p>Endereço: " & oCEP.Endereco & "<br />"
  Response.Write "EndereçoAbrev: " & oCEP.EnderecoAbrev & "<br />"
  Response.Write "Usuário: " & 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>"

Verificação de sucesso: Verificamos se a busca foi bem-sucedida. Se sim, as informações do CEP são exibidas. Caso contrário, uma mensagem de erro é mostrada.

Else
  Response.Write "<p>CEP não encontrado</p>"
End If
Set oCEP = Nothing

Busca por Logradouro

Inclusão do componente e instanciação do objeto: Assim como na busca por CEP, começamos incluindo e instanciando o mesmo componente.

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

Executando a busca por logradouro: Usamos o método 'EncontraEndereco' para buscar endereços baseando-se em estado, cidade e logradouro especificados.

Set rsDados = oCEP.EncontraEndereco("SP", "São Paulo", "Paulista")

Exibição dos resultados: Se a busca for bem-sucedida, iteramos pelos resultados obtidos e os exibimos em uma tabela HTML.

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

Este formato detalhado e passo a passo oferece uma visão clara de cada componente do processo de busca por CEP e por logradouro em ASP, seguindo a mesma estrutura utilizada no exemplo em PHP.

Conclusão

Com este artigo, você tem acesso às ferramentas necessárias para integrar a busca de CEP e logradouros diretamente em seu site ASP, utilizando o componente exclusivo da MCO2. A implementação dessas funcionalidades não apenas enriquece seu site com informações precisas e de fácil acesso, mas também eleva a experiência do usuário final.