<%  '    
  '  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    
  '   
function busca_cep( cep )   
  
    url = "http://republicavirtual.com.br/web_cep.php?cep="& 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     
 '     
      
 'Vamos buscar o CEP 90020022     
resultado = busca_cep( "29108048" )   
  
select case resultado( 2 )   
       
    case "2"  
    texto = " "&_   
         "<br>Cidade com logradouro único" &_    
         "<br><b>Cidade: </b> "&resultado( 8 ) &" "&_   
         "<br><b>UF: </b> "&resultado( 5 )   
       
       
    case "1"  
    texto = " "&_   
         "<br>Cidade com logradouro completo "&_   
         "<br><b>Tipo de Logradouro: </b> "&resultado( 12 ) &" "&_   
         "<br><b>Logradouro: </b> "&resultado( 14 ) &" "&_   
         "<br><b>Bairro: </b> "&resultado( 10 ) &" "&_    
         "<br><b>Cidade: </b> "&resultado( 8 ) &" "&_   
         "<br><b>UF: </b> "&resultado( 6 )   
       
    case else   
  
    texto = "Falha ao buscar cep: "& resultado( 4 )   
end select   
  
response.write texto   
%>