Lendo xml previsão do tempo inpeP

[ricardo coelho designer 0]

Pessoal boa noite, venho aqui pois não consigo entender a estrutula de leitura do xml através do asp, bom o xml que preciso ler é esse http://servicos.cptec.inpe.br/XML/cidade/244/previsao.xml, bom o código que estou usando para tentar ler ele é

 

url = "http://servicos.cptec.inpe.br/XML/cidade/244/previsao.xml"
Set xml = Server.CreateObject("MSXML2.DOMDocument.3.0")
xml.async = False
xml.SetProperty "ServerHTTPRequest", True
xml.ValidateOnParse = False
xml.PreserveWhiteSpace = False

If Not xml.Load(url) Then
 Response.Write "Nenhuma nticia disponivel no momento."
Else

Set nodeList = xml.getElementsByTagName("item")

 For Each objNode In nodeList
   For Each objNode2 In objNode.childNodes
     Select Case objNode2.nodeName
       Case "tempo" : title = objNode2.firstChild.nodevalue
       Case "maxima"  : description  = objNode2.firstChild.nodevalue
     End Select

Next
response.write("<radio arquivo="""&link&""" imgpeq=""logo_uol.png"" link="""" alvo=""principal"" tempo=""10"" titulo="""&title&"""><![CDATA["&description&"]]></radio>")
Next

Set nodeList = Nothing
End If
Set xml = Nothing

 

Realmente não consigo entender, se alguém puder ajudar a adpatar esse código para ler esse xml já ajuda bastante.

 

Agradeço desde já.

[xanburzum 169]

olha este exemplo onde leio o xml de outro site e exibo os resultados obtidos

 

<% set xml = Server.CreateObject("Microsoft.XMLHTTP")
xml.open "GET", "http://republicavirtual.com.br/web_cep.php?cep=29056220&formato=xml" & cat, false
xml.send
 set objXML = xml.responseXML  
set raiz = objXML.getElementsByTagName("webservicecep")
set resultado = objXML.getElementsByTagName("resultado")
set uf = objXML.getElementsByTagName("uf")
set cidade = objXML.getElementsByTagName("cidade")
set bairro = objXML.getElementsByTagName("bairro")
set tipo_logradouro = objXML.getElementsByTagName("tipo_logradouro")
set logradouro = objXML.getElementsByTagName("logradouro")  
for i = 0 to raiz.length-1  
response.Write(resultado.item(i).text&"<br>")
response.Write(uf.item(i).text&"<br>")
response.Write(cidade.item(i).text&"<br>")
response.Write(bairro.item(i).text&"<br>")
response.Write(tipo_logradouro.item(i).text&"<br>")
response.Write(logradouro.item(i).text&"<br>")  
next
set xml = nothing
set objXML = nothing %>