[resolvido] Sobre Cep E Endereços

[Marianne]

Oi Amigos !

Estou fazendo um sisteminha de loja que a pessoa pesquisa um endereço pelo codigo postal.

alguém sabe com o posso ter o banco de dados de ruas, cep etc?

Ou Como posso fazer este link já abrindo uma pagina do correio direto no CP que preciso ?

Obrigada desde já ok?

Bjios

Se alguém tiver o BD por mandar para o meu email que tem espaço

Mary

marianne80@gmail.com

[ADL]

Eu uso esse aqui , faz um teste, o único problema que não consegui arrumar o acento.

<% Response.Charset="ISO-8859-1" %>
<%  '    
  '  Função de busca de Endereço pelo CEP    
  '  -   Desenvolvido Felipe Olivaes para ajaxbox.com.br    
  '  -   Adaptação de exemplo para utilização com ASP por Otávio Nogueira   
  '  -   Utilizando WebService de CEP da republicavirtual.com.br    
  '   
if not session("acesso") = "SIM" then
         'Redirecionamos para a Página de Login e informamos o erro    
      response.redirect("restrito.asp?erro=negado") 
      
   else

function busca_cep(cep)
cep = trim(request.form("cep"))
'    var url ="recebeAjax.asp?usuario="+escape(usuario)+"&senha="+escape(senha);
     url = "http://republicavirtual.com.br/web_cep.php?cep="+escape(CEP)+"&formato=query_string"  
       
    set xmlhttp = CreateObject("MSXML2.ServerXMLHTTP")    
    xmlhttp.open "GET", url, false    
    xmlhttp.send ""  
        
    xmlhttp_resultado = xmlhttp.responseText    
    set xmlhttp = nothing    
  
    arr_resultado = split( xmlhttp_resultado, "&" )   
  
    dim resultado(7)   
    for i = lbound( arr_resultado ) to ubound( arr_resultado )   
  
        resultado( i ) = arr_resultado( i )   
           
    next   
  
    arr = split( join( resultado, "=" ), "=" )   
  
    dim arr_2(14)   
    for i = lbound( arr ) to ubound( arr )   
  
        arr_2( i ) = replace( arr( i ), "+", " " )   
           
    next       
       
    busca_cep = arr_2   

  end function 
 '    
 ' Exemplo de utilização     
 '     
 if request.form("valor")<>"" then    
 cep = trim(request.form("cep"))     
resultado = busca_cep(cep)   
  
select case resultado(2)   
    case "2"  
   cidade=trim(resultado(5))   
            
    case "1" 
         rua=trim(resultado(12)) 
         endereco=trim(resultado(14)) 
                 bairro=trim(resultado(10))
                 cidade=resultado(8)  
                 estado=resultado(6)
                
    case else   
    resultado1 = trim(resultado(4)) 
        
    texto = "Falha ao buscar cep: "& resultado1  
end select   
  end if

[Notax]

da uma olhadinha nesse link aí:

http://www.geocities.com/cantinhodemais/ferramentas.htm

é o terceiro tópico de cima pra baixo...

abração!

[Marianne]

O Endereço esta fora do ar..

Procurei no site dos correios mas não tem o banco para download.

alguém tem o banco ou sabe onde posso baixa-lo?

Obrigada demais :)

Mary

marianne@gmail.com

[Notax]

aham... o link mudou! e as coisas mudaram um pouquinho por lá tb... da uma olhada:

http://www.correios.com.br/servicos/cep/cep_coloque.cfm

To tentando achar um bd (meio antigo) que tenho aqui nos meus backups... assim que encontrar te mando por e-mail, ok? só não sei se é muito confiável devido a ser meio antigo... mas talvés seja um começo!

Notax

[Marianne]

Obrigadaa !!!