How to use ASP to receive XML data from a remote server

Copy codeThe Code is as follows: <%
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.doc umentElement
If not isObject (objRootElement) then
Response. Write ("no file loaded ")
Else
Response. Write (objRootElement. childnodes (0). text)
End if
End if
%>