add parameter

[Chuck]

Hello.

I am trying to pass three parameters using this code in an asp page to an
xsl page.
I keep getting the following error:

Microsoft VBScript runtime error '800a01a8'
Object required: ''

/account.asp, line 114

Any ideas what I am missing?

Chuck

Dim oXmlsrc, oXml, oNode, oXslsrc, oXsl, newXML, re, oXslTmpl, oXslProc

Set oXmlsrc=CreateObject("MSXML2.DOMDocument.4.0")
Call oXmlsrc.setProperty("ServerHTTPRequest", True)
oXmlsrc.async=False

Set oXslsrc=CreateObject("MSXML2.FreeThreadedDOMDocument.4.0")
Call oXslsrc.setProperty("ServerHTTPRequest", True)
oXslsrc.async=False

Set oXslTmpl = Server.CreateObject("MSXML2.XSLTemplate.4.0")

'On Error Resume Next 'debugging code

'If Request.Form("name") = "" Then
Call oXmlsrc.load(sVerifyUrl)
'Response.Write "<!-- " & oXmlSrc.xml & " -->" 'debugging code
newXML=oXmlsrc.xml
Set re=new regexp
re.pattern=" xmlns.+?>"
newXML=re.replace(newXML,">")
Call oXmlsrc.loadxml(newXML)
Call oXslsrc.load("https://www.abc.com/account.xsl")
'End If

Set oXslTmp1.stylesheet = oXslsrc
Line 114 <<<<<<<<<<
Set oXslProc = oXslTmpl.createProcessor()
oXslProc.input = oXmlsrc
Call oXslProc.addParameter("accountnumber", ud_CSN)
Call oXslProc.addParameter("customername", ud_CustomerName)
Call oXslProc.addParameter("username", ud_UserName)
oXslProc.Transform()
sOutput oXslProc.output

'oXslsrc.selectSinglenode("//@select").text= "'" & ud_CustomerName & "'"
Response.Write oXmlsrc.transformNode(oXslsrc)

Response.Write sOutput
Set oXslProc = Nothing
Set oXslTmpl = Nothing
Set oXslsrc = Nothing
Set oXmlsrc = Nothing