The code:

  Dim Qry
  Set Qry = Server.CreateObject("MSXML2.DOMDocument")
  Qry.load Server.MapPath( soapAction & ".xml")

  Qry.setProperty "SelectionLanguage", "XPath"

  Qry.selectSingleNode("//contentId").Text = intContentId


Returns the following error:

Microsoft VBScript runtime  error '800a01a8'

Object required: 'Qry.selectSingleNode(...)'