meteo con weather.com

[eliane]

Cari amici
ho bisogno di un aiuto per un script meteo
lo script è questo:

if Request.QueryString("LocationID")<>"" then
Function GetWeather(sPartnerID, sLicenseKey, sLocationID)

sURL = "http://xoap.weather.com/weather/local/" & sLocationID & "?cc=*&prod=xoap&par=" & sPartnerID & "&key=" & sLicenseKey & "&unit=m&dayc=4"

Set objXMLHTTP = Server.CreateObject("Microsoft.XMLHTTP")
objXMLHTTP.Open "GET", sURL, False
objXMLHTTP.Send
sData = objXMLHTTP.ResponseText
Set objXMLHTTP = Nothing

GetWeather = CStr(sData)

End Function


PartnerID = "1051343533" 'proprio codice di iscrizione a weather.com
LicenseKey = "f541d3f6c8aa101f" 'propria chiave di licenza
LocationID = Request.QueryString("LocationID") 'previsione per bari

xmlWeatherInfo = GetWeather(PartnerID, LicenseKey, LocationID)

Set objXML = Server.CreateObject("Microsoft.XMLDOM")
objXML.LoadXML(xmlWeatherInfo)

Set xmlNode = objXML.documentElement.selectSingleNode("head/ut")
sUnitTemperature = "°" & xmlNode.Text
Set xmlNode = objXML.documentElement.selectSingleNode("head/ud")
sUnitDistance = xmlNode.Text
Set xmlNode = objXML.documentElement.selectSingleNode("head/us")
sUnitSpeed = xmlNode.Text
Set xmlNode = objXML.documentElement.selectSingleNode("head/ur")
sUnitPrecipitation = xmlNode.Text
Set xmlNode = objXML.documentElement.selectSingleNode("head/up")
sUnitPressure = xmlNode.Text
Set xmlNode = objXML.documentElement.selectSingleNode("loc/dnam")
sLocation = xmlNode.Text
Set xmlNode = objXML.documentElement.selectSingleNode("loc/tm")
sRetrievedTime = xmlNode.Text
Set xmlNode = objXML.documentElement.selectSingleNode("loc/lat")
sLatitude = xmlNode.Text
Set xmlNode = objXML.documentElement.selectSingleNode("loc/lon")
sLongitude = xmlNode.Text
Set xmlNode = objXML.documentElement.selectSingleNode("loc/sunr")
sSunrise = xmlNode.Text
Set xmlNode = objXML.documentElement.selectSingleNode("loc/suns")
sSunset = xmlNode.Text
Set xmlNode = objXML.documentElement.selectSingleNode("loc/zone")
sTimezone = xmlNode.Text
Set xmlNode = objXML.documentElement.selectSingleNode("cc/bar/r")
sBarometer = xmlNode.Text
Set xmlNode = objXML.documentElement.selectSingleNode("cc/bar/d")
sBarometerDirection = xmlNode.Text
Set xmlNode = objXML.documentElement.selectSingleNode("cc/dewp")
sDewPoint = xmlNode.Text
Set xmlNode = objXML.documentElement.selectSingleNode("cc/flik")
sFeelsLike = xmlNode.Text
Set xmlNode = objXML.documentElement.selectSingleNode("cc/t")
sForecast = xmlNode.Text
Set xmlNode = objXML.documentElement.selectSingleNode("cc/hmid")
sHumidity = xmlNode.Text
Set xmlNode = objXML.documentElement.selectSingleNode("cc/icon")
sImageID = xmlNode.Text
Set xmlNode = objXML.documentElement.selectSingleNode("cc/lsup")
sLastUpdated = xmlNode.Text
Set xmlNode = objXML.documentElement.selectSingleNode("cc/moon/icon")
sMoonImageID = xmlNode.Text
Set xmlNode = objXML.documentElement.selectSingleNode("cc/moon/t")
sMoonText = xmlNode.Text
Set xmlNode = objXML.documentElement.selectSingleNode("cc/obst")
sObservationStation = xmlNode.Text
Set xmlNode = objXML.documentElement.selectSingleNode("cc/tmp")
sTemperature = xmlNode.Text
Set xmlNode = objXML.documentElement.selectSingleNode("cc/vis")
sVisibility = xmlNode.Text
Set xmlNode = objXML.documentElement.selectSingleNode("cc/wind/s")
sWindSpeed = xmlNode.Text
Set xmlNode = objXML.documentElement.selectSingleNode("cc/wind/t")
sWindDirection = xmlNode.Text
Set xmlNode = objXML.documentElement.selectSingleNode("cc/wind/gust")
sWindGust = xmlNode.Text
Set xmlNode = objXML.documentElement.selectSingleNode("cc/wind/d")
sWindCompass = xmlNode.Text
Set xmlNode = objXML.documentElement.selectSingleNode("cc/uv/i")
sWinduv = xmlNode.Text
Set xmlNode = objXML.documentElement.selectSingleNode("cc/uv/t")
sWinduvt = xmlNode.Text

<%
Response.Write "<h1>" & sTemperature &"&deg;C</h1>"
Response.Write "<h2>" & sForecast & "</h2>"

%>
<%

'Response.Write "Apparente: " & sFeelsLike &"&deg;C
"
Response.Write "Umidit&agrave;: " & sHumidity & "%
"
Response.Write "Ora Locale: " & sRetrievedTime & "
"
Response.Write "Ora alba: " & sSunrise & "
"
Response.Write "Ora tramonto: " & sSunset & "
"

Response.Write "Velocit&agrave; vento: " & sWindSpeed & " " & sUnitSpeed & "
"
Response.Write "Visibilit&agrave;: " & sVisibility & " " & sUnitDistance & "
"
Response.Write "Indice UV: " & sWinduv &" "& sWinduvt & "
"

Set objXML = Nothing

%>

funziona benissimo ma vorrei la meteo di 4 giorni e non riesco
il file xml per 4 giorno di meteo è:
http://xoap.weather.com/weather/loca...&unit=m&dayf=4

ho letto su tutta internet..
quello che ho trovato è solo in php

ho cercato di fare for next che ho visto in giro su internet così

for each itm in objXML.documentElement.selectNodes("dayf//day")
set tmp = itm.selectSingleNode("hi")
response.Write(tmp.Text & "
")
set tmp = itm.selectSingleNode("low")
response.Write(tmp.Text & "
")
next

ma non funziona

qualcuno vorrebbe me aiutare?
Grazie