Função de busca de Endereço pelo CEP.
Utilizando WebService de CEP do site republicavirtual.com.br
Adaptação de exemplo para utilização com ASP por Otávio Nogueira.
<% '
' 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 = "https://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 = " "&_
"
Cidade com logradouro único" &_
"
Cidade: "&resultado( 8 ) &" "&_
"
UF: "&resultado( 5 )
case "1"
texto = " "&_
"
Cidade com logradouro completo "&_
"
Tipo de Logradouro: "&resultado( 12 ) &" "&_
"
Logradouro: "&resultado( 14 ) &" "&_
"
Bairro: "&resultado( 10 ) &" "&_
"
Cidade: "&resultado( 8 ) &" "&_
"
UF: "&resultado( 6 )
case else
texto = "Falha ao buscar cep: "& resultado( 4 )
end select
response.write texto
%>
