sub getxml()
on error resume next
xml1.async = false
xml1.load "change1.xml"
window.setTimeout "getxml()",4000
end sub
sub refresh()
if xml1.readyState <>"complete" then exit sub
if xml1.xml= xml1_xml or xml1.xml="" then exit sub
xml1_xml=xml1.xml
document.getElementById("text1").innertext=xml1.childNodes.item(1).Attributes(0).text
end sub
</SCRIPT>