Using ASP to receive XML data from a remote server

<%
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
%>