asp-classic - ASP クラシック: 必要なオブジェクト: 'objContent.documentElement'

Question

ASP クラシックを使用するプロジェクトに取り組んでいます。このエラーに問題があります:

Microsoft VBScript ランタイム エラー '800a01a8'

必要なオブジェクト: 'objContent.documentElement'

/muhproject/includes/clsTransform.asp、138 行目

objContent.documentElement要件のニーズに応じてプロジェクトに含めるにはどうすればよいですか?

ファイルの 138 行目は次のとおりです。

'Attach fragment into pageContentXML
objContent.documentElement.appendChild xDoc2.documentElement

編集：コードの完全な機能は次のとおりです

'TransformContent - accepts content in XML data, and contentXSL file path
    public function TransformContent(scriptNameFull, fragmentXML)

        fragmentXML = decodeUTF8(fragmentXML)

        '1. Load the content.html (as XML)
        Dim objContent
        set objContent = Server.CreateObject("Msxml2.DOMDocument.3.0")  

        Dim contentXSLSpec
        contentXSLSpec = rootRel & "/muhproject/template/page/content.xsl"  'this is fixed

        objContent.async = false
        objContent.validateOnParse = false
        objContent.load( server.MapPath(scriptNameFull) )

        '2. Load fragmentXML XML fragment
        Dim xDoc2
        set xDoc2 = Server.CreateObject("Msxml2.DOMDocument.3.0")
        xDoc2.Async = false
        xDoc2.resolveExternals = false
        xDoc2.validateOnParse = false
        xDoc2.loadXML(fragmentXML)


        '3. Attach fragment into pageContentXML
        objContent.documentElement.appendChild xDoc2.documentElement

        Dim objXSL
        set objXSL = Server.CreateObject("Msxml2.DOMDocument.3.0")

        objXSL.async = false
        objXSL.validateOnParse = false

        objXSL.load( server.mapPath(contentXSLSpec) )

        '3. Do the transformation

        Dim retVal
        retVal = objContent.transformNode(objXSL.documentElement)

        set objContent = nothing
        set xDoc2 = nothing
        set objXSL = nothing

        TransformContent = retVal

    end function