% Dim xmldoc,newsNode Set xmldoc = Server.CreateObject("Microsoft.XMLDOM") xmldoc.async = false xmldoc.load(Server.MapPath(".") & "\news.xml") Set arr = xmldoc.selectNodes("DOC/NEWS") %>