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 = "xxxxxxxxxxx" 'proprio codice di iscrizione a weather.com
LicenseKey = "xxxxxxxxxxxxxx" '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 &"°C</h1>"
Response.Write "<h2>" & sForecast & "</h2>"
 
%> 
<%
 
'Response.Write "Apparente: " & sFeelsLike &"°C<br>" 
Response.Write "Umidità: " & sHumidity & "%<br>"
Response.Write "Ora Locale: <b>" & sRetrievedTime & "</b><br>"
Response.Write "Ora alba: " & sSunrise & "<br>"
Response.Write "Ora tramonto: " & sSunset & "<br>"
 
Response.Write "Velocità vento: " & sWindSpeed & " " & sUnitSpeed & "<br>"
Response.Write "Visibilità: " & sVisibility & " " & sUnitDistance & "<br>"
Response.Write "Indice UV: " & sWinduv &" "& sWinduvt & "<br>"
 
Set objXML = Nothing
 
%>

funziona benissimo ma vorrei le previsione di 4 giorni e non riesco.
Il file xml per 4 giorno di meteo è:
http://xoap.weather.com/weather/loc...it=m&dayf=4

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

ho cercato di fare for next ma non funzona

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

qualcuno vorrebbe me aiutare?
Grazie