Получение проблемы несоответствия типов при добавлении параметра в XSLT с использованием VBScript

Question

У меня есть код ниже в VBScript:

<%

Option Explicit  

#importXSLT "tcm:228-190529-2048" As expandXSLT
#importXSLT "tcm:228-642694-2048" As renderXSLT

Dim xml, currentDateTime

Set xml = getNewDomDocument()
xml.loadXML TDSE.GetListPublications(3)

expandXSLT.input = xml
Call expandXSLT.addParameter("publication", Component.Publication.Id)
expandXSLT.transform

xml.loadXML(expandXSLT.output)
'WriteOut xml.xml

currentDateTime = now
renderXSLT.input = xml
Call renderXSLT.addParameter("currentPublishedDate", currentDateTime)
renderXSLT.transform

WriteOut renderXSLT.output

Set xml = Nothing

%>

Вы можете видеть, что есть два синтаксиса, где я добавляю параметр XSLT, первый работает нормально, т.е.

expandXSLT.input = xml
Call expandXSLT.addParameter("publication", Component.Publication.Id)
expandXSLT.transform

Однако новое требование заключалось в том, что нам нужно отправить текущую дату и время отсюда в XSLT, поэтому я добавил ту же логику для отправки текущей даты и времени в мой XSLT, ниже приведен код, добавленный мной

 currentDateTime = now
    renderXSLT.input = xml
    Call renderXSLT.addParameter("currentPublishedDate", currentDateTime)
    renderXSLT.transform

Но когда я пытаюсь запустить приведенный выше код, появляется ошибка:

Несоответствие типов. (источник: Вызовите renderXSLT.addParameter ("publDate", currentDateTime)).

Пожалуйста, предложите !!

Answer 1

Попробуйте, нужно ли сначала преобразовать значение currentDateTime в строку, чтобы передать эту строку в XSLT, например. CStr(currentDateTime).