Microsoft.xmlhttp

[bareta]

ai galera to usando o xml http,,, para buscar alguns dados de uma pagina maias ele não mostra os acentos..... alguém sabe como fazer...???

o que recebo

Ap? derrota por 2 a 1 para o Fortaleza, neste domingo, no est?o Parque Antarctica, pelo Campeonato Brasileiro, o t?ico Paulo Bonamigo anunciou sua sa? do Palmeiras. A torcida frustrada gritava pelo t?ico Emerson Le?para substitu?o.

Segundo mat?a publicada no Folha on line, o resultado agravou a crise da equipe, que vinha de derrota no cl?ico (3 a 1) para o Corinthians. Bonamigo deixa o Palmeiras na 16? coloca? do Nacional, com 13 pontos -a Ponte Preta lidera com 26.

"Quero agradecer a oportunidade que a diretoria do Palmeiras me deu, n?faltou vontade. Tentei fazer o Palmeiras vitorioso, mas n?consegui. Saio com a sensa? de que as coisas n?deram certo".

Segundo Bonamigo, o novo treinador, que dever?er Le? vai encontrar um bom grupo. "O pr?o t?ico s?i precisar de um pouco de sorte e de bons resultados. A vida segue", explicou, de acordo com o Folha on line.
Na quarta-feira, o Palmeiras enfrentar? Figueirense, em Florian?is.

original

Após a derrota por 2 a 1 para o Fortaleza, neste domingo, no estádio Parque Antarctica, pelo Campeonato Brasileiro, o técnico Paulo Bonamigo anunciou sua saída do Palmeiras. A torcida frustrada gritava pelo técnico Emerson Leão para substituí-lo.

Segundo matéria publicada no Folha on line, o resultado agravou a crise da equipe, que vinha de derrota no clássico (3 a 1) para o Corinthians. Bonamigo deixa o Palmeiras na 16ª colocação do Nacional, com 13 pontos -a Ponte Preta lidera com 26.

"Quero agradecer a oportunidade que a diretoria do Palmeiras me deu, não faltou vontade. Tentei fazer o Palmeiras vitorioso, mas não consegui. Saio com a sensação de que as coisas não deram certo".

Segundo Bonamigo, o novo treinador, que deverá ser Leão, vai encontrar um bom grupo. "O próximo técnico só vai precisar de um pouco de sorte e de bons resultados. A vida segue", explicou, de acordo com o Folha on line.
Na quarta-feira, o Palmeiras enfrentará o Figueirense, em Florianópolis.

meu codigo:/

[Bicicleta]

tive o mesmo problema uma vez, depois de procurar dirante dias, achei essa função que resolveu o problema:

Function BinaryToString(strBinary)

BinaryToString = ""

For intCount = 1 to LenB(strBinary)

  theChar=chr(AscB(MidB(strBinary,intCount,1)))

  BinaryToString = BinaryToString & theChar

Next

End Function

Só não lembro onde peguei, então os créditos é do cara q fez, só não lembro quem é! hehehehe

Falow!

[bareta]

não consegui usar dessa forma

[bareta]

problema resolvido

[[ GuTo ]]

Essa função é muito boa!

Ajudou-me hoje!

Gostaria apenas de entende-la, passo a passo.

Alguém sabe explicar?

Metódos binários aí.. sei lá o que mais.. não saco nada.. deve ter vbScript puro com pouco de asp..hehe...

[Bicicleta]

Guto, puro VBScript com um pouco de ASP? Ambos não são a mesma coisa? hehehehehehe

Bom, ele faz isso:

chr(AscB(MidB(strBinary,intCount,1)))

ou seja, passa cada caracter, pegando o primeiro byte do caracter, e o transformando novamente em caracter... O que volta certo...

Basicamente é isso, difícil de explicar, mais simples de se compreender olhando essa linha, hehehehehehe

[Deividy]

tenho o mesmo problema que o guto a compreenção dessa linha mata o pioao

[Ruben Zevallos Jr.]

Prezados, acho que estou com um problema velho... que é o caso dos Acentos do XHTTP no ASP com o IIS em um Windows 2003 Server Standard Inglês, com todas as configurações para o Inglês Americado.

Eu fiz um sistema para ler HTML de outro endereço, para utilizar em um sistema interno... mas, infelizmente notei que o servidor de origem, o IIS acima, não retorna o código correto... Ele retorna o seguinte.

Arquivo lido - http://www.wez.com.br/library/rss.htm

Texto lido esperado

<br />

<br /><strong>O que é RSS?</strong>

getAllResponseHeaders=Content-Length: 16268

Content-Type: text/html <-- Não tem o charset=ISO-8859-1 ou UTF-8

ETag: "80ca18143cbec61:5531"

X-Powered-By: ASP.NET

Last-Modified: Sat, 12 Aug 2006 18:21:07 GMT

statusText=OK

8

1 | < - 60

2 | b - 98

3 | r - 114

4 | - 32

5 | / - 47

6 | > - 62

7 | - 13

8 | - 10

9 | < - 60

10 | b - 98

11 | r - 114

12 | - 32

13 | / - 47

14 | > - 62

15 | < - 60

16 | s - 115

17 | t - 116

18 | r - 114

19 | o - 111

20 | n - 110

21 | g - 103

22 | > - 62

23 | O - 79

24 | - 32

25 | que - 113

26 | u - 117

27 | e - 101

28 | - 32

29 | ? - 63

30 | S - 83

31 | S - 83

32 | ? - 63

Dim objXMLHTTP

Set objXMLHTTP = Server.CreateObject("Microsoft.XMLHTTP")

objXMLHTTP.Open "GET", sparTarget, False

objXMLHTTP.setRequestHeader "content-type", "text/html; charset=ISO-8859-1"

REM Tentativas com o mesmo resultado

REM objXMLHTTP.setRequestHeader "encoding", "ISO-8859-1"

REM objXMLHTTP.setRequestHeader "Cache-Control", "no-store, no-cache, must-revalidate"

REM objXMLHTTP.setRequestHeader "Cache-Control", "post-check=0, pre-check=0"

REM objXMLHTTP.setRequestHeader "Pragma", "no-cache"

objXMLHTTP.Send

REM On Error Goto 0

If Err.Number = 0 Then

If objXMLHTTP.Status = 200 Then

Response.Write "<br />getAllResponseHeaders=" & Replace(objXMLHTTP.getAllResponseHeaders, vbCrLf, "<br />")

Response.Write "<br />statusText=" & objXMLHTTP.statusText

strResult = objXMLHTTP.ResponseText

Response.Write "<br />" & VarType(strResult)

For i = 1 To Len(strResult)

Response.Write "<br />" & i

Response.Write " | " & Mid(strResult, i, 1)

Response.Write " - " & Asc(Mid(strResult, i, 1))

Next

Response.Write "<br />Len=" & Len(strResult)

Else

strResult = "URL Incorrecta"

End If

Else

strResult = Err.Description

End If

Set objXMLHTTP = Nothing

Response.Write strResult

Quando converti para ASP, usando o

<%

Response.Charset = "iso-8859-1"

%>

<br />

<br /><strong>O que é RSS?</strong>

Deu certo, mas SOMENTE o HTML, não consegui mudar.

O que pode estar errado?

[Guest Milton MAOL.COM.BR]

Olá,,

Para resolver o problema de acentos da requisição xml,,,, apenas coloque essa linha no arquivo requisitado.

<% Response.AddHeader "Content-Type", "text/html; charset=iso-8859-1" %>

Funcionou muito bem.....