VBScript проблема XML

Question

У меня есть этот vbscript, который вызывает веб-сервис, написанный на .net 2010. Я получаю сообщение об ошибке в последней строке. Не могу понять это. Это веб-сервис: http://www.kollelbaaleibatim.com/services/getinfo.asmx/GetFronpageInfo

   Dim xmlDOC
    Dim bOK
    Dim J
    Dim HTTP
    Dim ImagePathLeftCar, ImagePathRightCar
    Dim CarIDLeft, CarIDRight
    Dim ShortTitleLeftCar, ShortTitleRightCar
    Dim DescriptionLeftCar, DescriptionRightCar 
    Dim PriceLeftCar, PriceRightCar

    Set HTTP = CreateObject("MSXML2.XMLHTTP")
    Set xmlDOC =CreateObject("MSXML.DOMDocument")
    xmlDOC.Async=False

    HTTP.Open "GET","http://www.kollelbaaleibatim.com/services/getinfo.asmx/GetFronpageInfo", false 
    HTTP.setRequestHeader "Content-Type", "application/x-www-form-urlencoded"
    HTTP.Send()  

    dim xmldoc2   
    set xmldoc2 = Server.CreateObject("Microsoft.XMLDOM")
    xmldoc2.async = False 
    bOK = xmldoc2.load(HTTP.responseXML)

    if Not bOK then
        response.write( "Error loading XML from HTTP")
    end if

    response.write( xmldoc2.documentElement.xml)'Prints a good looking xml
      ShortTitleLeftCar = xmldoc2.documentElement.selectSingleNode("LeftCarShortTitle").text 'ERROR HERE

Answer 1

Это не проблема VBScript, это проблема xpath. xmldoc2.documentElement.selectSingleNode("LeftCarShortTitle") попытается найти элемент "LeftCarShortTitle" как дочерний элемент корня .... который в вашем случае не будет работать, так как до этого есть различные уровни, т.е.

Обновите ваш xpath:

//LeftCarShortTitle

Это обойдет потомков документа и должно найти узел, который вы ищете.