<% Dim curr(1000) Set xmlDoc5 = CreateObject("Microsoft.XMLDOM") xmlDoc5.async=False If xmlDoc5.Load("http://www.netevo.tv/test/weatherxml.asp") then ' Start at Document Element Set xmlDocElement5 = xmlDoc5.documentElement ' Did we find anything? No childNodes could mean file not found, for example If (xmlDoc5.childNodes.Length > 0) Then ' Get the element dim enodes dim enode dim ethermokrasia(10) dim ephoter(10) dim ecity(10) dim fileee set enode= xmlDoc5.selectSingleNode("weather/item/high") weatheras=enode.text response.write weatheras end if end if %>