[xanburzum]

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