Suporte

Lista dos componentes ASP disponíveis nos servidores

Busca de CEP em ASP

Buscando CEPS e endereços no seu site via ASP

Se você precisa fazer buscas em bases de CEP, recomendamos utilizar este componente. que pesquisa os dados solicitados em nossas bases internas.

Para buscar um endereço através de um CEP informado, utilize o seguinte exemplo:



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  

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 ASP.NET.

Contrate já e tenha até 60 dias gratis para testar!

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