Busca de CEP em 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