Função de busca de Endereço pelo CEP

Desenvolvido para ajaxbox.com.br, utilizando WebService de CEP da republicavirtual.com.br

<%

 function busca_cep( cep )
 response.Charset="utf-8"

 url = "http://republicavirtual.com.br/web_cep.php?cep="& request.QueryString("CEPLogin") &"&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( "90020022" )

 select case resultado( 2 )

 case "2"
 texto = " "&_
 "Cidade com logradouro único" &_
 "<b>Cidade: </b> "&resultado( 8 ) &" "&_
 "<b>UF: </b> "&resultado( 5 )

 case "1"
 texto = " "&_
 "Cidade com logradouro completo "&_
 "<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
 %>

 Desenvolvido Felipe Olivaes para ajaxbox.com.br e Adaptação de exemplo para utilização com ASP por Otávio Nogueira