Meteorologia xml no site

[Raposo]

Prezados(as),

Necessito colocar Meteorologia em meu site. Porém gostaria que o mesmo fosse no formato do Clima Tempo (que existe na home), alguém sabe como posso realizar a elaboração?

Estou utilizando o código + função binária abaixo, porém sempre que carrego a página ele exibe o seguinte erro:

The XML page cannot be displayed

Cannot view XML input using XSL style sheet. Please correct the error and then click the Refresh button, or try again later.

--------------------------------------------------------------------------------

Caractere inválido encontrado no texto. Erro ao processar o recurso 'http://100.440.10.6/wwwroot/'. Linha 9, posi...

Código:

<%

'------------------------------------------------

Public Function BinaryToString(xBinary)

Dim Binary

Dim RS, LBinary

If VarType(xBinary)=8 Then Binary = MultiByteToBinary(xBinary) Else Binary = xBinary

Const adLongVarChar = 201

Set RS = CreateObject("ADODB.Recordset")

LBinary = LenB(Binary)

If LBinary>0 Then

RS.Fields.Append "mBinary", adLongVarChar, LBinary

RS.Open

RS.AddNew

RS("mBinary").AppendChunk Binary

RS.Update

BinaryToString = RS("mBinary")

Else

BinaryToString = ""

End If

Set RS = Nothing

End Function

Public Function MultiByteToBinary(MultiByte)

Dim RS, LMultiByte, Binary

Const adLongVarBinary = 205

Set RS = CreateObject("ADODB.Recordset")

LMultiByte = LenB(MultiByte)

If LMultiByte>0 Then

RS.Fields.Append "mBinary", adLongVarBinary, LMultiByte

RS.Open

RS.AddNew

RS("mBinary").AppendChunk MultiByte & ChrB(0)

RS.Update

Binary = RS("mBinary").GetChunk(LMultiByte)

End If

Set RS = Nothing

MultiByteToBinary = Binary

End Function

'------------------------------------------------

'Declaração das variáveis

Dim objXmlHttp

Dim Url

Dim Conteudo

'Inicialização do objeto

Set objXmlHttp = Server.CreateObject("MSXML2.XMLHTTP")

'Url do Site

Url = "http://clientes.climatempo.com.br/RSS/são Paulo-SP.xml "

'Resgatando os dados da URL via HTTP

objXMLHttp.Open "GET", Url, False

objXMLHttp.Send

'Utilizando a função "BinaryToString" não haverá mais problemas com acentos.

Conteudo = BinaryToString(objXmlHttp.ResponseBody)

Response.ContentType = "text/xml"

Response.Write Conteudo

'Destruição do objeto

Set objXmlHttp = Server.CreateObject("MSXML2.XMLHTTP")

%>