Consulta de CEP

[Gilberto Jr 26]

Bom dia tarde Pessoal,

eu encontrei um script para fazer consulta de CEP, esta funcionando beleza a consulta. O problema esta na hora de mostrar o resultado se tiver acentuacao mostra como caractere especial. Alguem usa esse codigo abaixo:

 

   <%  '   
     '  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 )  
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  
   %>    

 

ja troquei o charset da pagina e tambem continua com caractere especial.

 

desde ja agradeço.

[xanburzum 169]

tenta assim, para ISO-8859-1

 

<%@LANGUAGE="VBSCRIPT" CODEPAGE="65001"
Response.Charset="ISO-8859-1" %>

Response.CharSet = "ISO-8859-1". No cabeçalho do site coloquei a meta tag <meta http-equiv="Content-Type" content="text/html; charset=ISO-8859-1" />, e ao cadastrar qualquer coisa dei um replace nas strings desta forma abaixo.


e para UTF-8

Mudar o head da página que solicita os dados para que ele fique assim
[code]<meta http-equiv="content-type" content="text/html; charset=utf-8" />

 

N

a página que responde os dados colocar isso antes do retorno co conteúdo (logo no topo):
<%
Response.AddHeader "Content-Type", "text/html; charset=utf-8"
Response.AddHeader "Pragma", "no-cache"
response.Charset="utf-8"
%>

[Gilberto Jr 26]

Fala ae Xan, você sempre por aqui.. descansa nao rapa rsrs

 

vamos la, rapa eu acho que o problema é nesse link, pq o seguinte.

se você pegar esse link aqui O meu endereço voce vai ver que vai vir com caractere especial.

 

Agora se você pega esse mesmo endereço e muda o formato para xml O meu endereço pode ve que as informacoes vem correta.

[xanburzum 169]

Fala meu amigo Gilberto....

no head da página que solicita os dados ,deixe assim

<

meta http-equiv="content-type" content="text/html; charset=utf-8" />

 

Na página que responde os dados , deixe estes headers

<%

Response.AddHeader "Content-Type", "text/html; charset=utf-8"

Response.AddHeader "Pragma", "no-cache"

response.Charset="utf-8"

%>

[Gilberto Jr 26]

Muito estranho, mudei e mesmo assim continua aparecendo da mesma forma.

 

Se eu mudar o formato para xml, ele me tras as informações correta. Seria muito complicado para poder mudar o script para ler o xml que ele retorna?

[xanburzum 169]

não basicamente é só setar o caminho do XML , tem um ótimo exemplo de XML do lab. desde como criar e ler

 

e mesmo mudando a pagina que responde os dados