Caracteres raros al llamar XML desde ASP

[yomesmo]

He mirado por toda la Red y he visto que este problema es muy común, no he encontrado ninguna solución cuando se da esta situación:

Desde una página ASP llamo a otra página ASP mediante el MSXML2.ServerXMLHTTP pero los resultados los muestra sin respetar ñ o acentos. ¿Alguien ha dado con una solución a este problema?

Este es el código:


set oXML = Server.CreateObject("MSXML2.ServerXMLHTTP")
oXML.open "GET", URL, false
oXML.setRequestHeader "Content-Type","text/html; charset=iso-8859-1"
oXML.send
include = oXML.responseText
set oXML = NOTHING

[aloqui]

No estoy seguro, pero en AJAX yo alguna vez en lugar de usar "text/html" para el Content-Type he usado 'application/x-www-form-urlencoded'
Puedes probarlo y decirnos si te funciona.

[yomesmo]

Probado y no funciona.

Gracias aloqui!!

[yomesmo]

¿Alguna ayudita, please?

[yomesmo]

Solucionado, la dejo aqui porque he visitado décenas de posts y nadie da con la solución... pero la tiene. Eso si, es vergonzoso que Microsoft no haya resuelto este problema.

Solo teneis que poner esto en el ASP donde esta la función para cargar al XML:

<script language="vbscript" runat="server">
'Función para llamar a un XML desde ASP
Function bts(data)
dim sOut
'Convertimos datos binarios a string
sOut = ""
For i = 0 to UBound(data)
sOut = sOut & chrw(ascw(chr(ascb(midb(data,i+1,1)))))
Next
bts=sOut
End Function
</script>

Y ahora llamamos al XML, aplicando la función anterior:

<%
dim conn,htmltext
url="http:www.urldelxml.com"
set conn = Server.CreateObject("Msxml2.XMLHTTP.3.0")
conn.Open "get", url, false
conn.Send()
htmltext=bts(conn.responseBody) 'Aplico la función de convertir los datos binarios a string
Response.Write(htmltext)
%>

Aqui lo dejo para la posteridad y de paso me cago en Mocosoft y sus chapuzas prehistóricas (Con permiso del moderador del foro).