How to use ASP to receive XML data from a remote server _ application techniques

Copy Code code 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.documentelement
If not IsObject (objrootelement) Then
Response.Write ("No File Loaded")
Else
Response.Write (Objrootelement.childnodes (0). Text)
End If
End If
%>