Dim objRSSet objRS = Server.CreateObject("ADODB.RecordSet")objRS.ActiveConnection = "Provider=MSDAOSP; Data Source=MSXML2.DSOControl.2.6;"objRS.Open(Server.MapPath("news.xml"))