<%  dim objXML  dim objRootElement  dim strValue  dim strInetURL  dim strXML  dim item              strInetURL ="http://pf.inetsolution.com/inetactive2001/inetactive2001news.xml"  Dim HttpReq   set HttpReq = server.CreateObject("MSXML2.XMLHTTP")    HttpReq.open "GET", "http://pf.inetsolution.com/inetactive2001/inetactive2001news.xml", False  HttpReq.send  strXML = HttpReq.responseText         Set objXML = Server.CreateObject("Msxml2.DOMDocument")  objXML.validateonparse = true  objXML.async=false  objXML.loadXML(strXML)  if objXML.ParseError.errorCode <> 0 then      Response.Write("Error: " & objXML.parseError.reason & "<br>")      Response.Write("Code: 0x" & hex(objXML.parseError.errorCode) & "<br>")      Response.Write("At Line: " & objXML.parseError.line & "<br>")      Response.Write("At pos: " & objXML.parseError.linePos & "<br>")                  else      set objRootElement = objXML.documentElement      if not isObject(objRootElement) then          Response.Write("no file loaded")      else          Response.Write(objRootElement.childnodes(0).text)      end if  end if  %>