Not sure which object to use to load xml into xsl
am 14.02.2007 19:07:00 von ChuckHello,
I am having trouble loading the returned XML from a Webservice into my XSL.
Any suggestions would be appreciated.
' Build custom HTTP header
xmlServerHttp.open "POST", "https://.../Site.asmx", False ' False = Do not
respond immediately
xmlServerHttp.setRequestHeader "Content-Type", "text/xml; charset=utf-8"
xmlServerHttp.setRequestHeader "Content-Length", Len(SoapBodyStr)
xmlServerHttp.setRequestHeader "SOAPAction",
"http://tempuri.org/GetSiteDetail"
xmlServerHttp.send(SoapBodyStr)
set xmlServerHttp = nothing
Dim oXmlsrc, oRootNode, oXslsrc, newXML, re, oXslTemplate, oXslProcessor
' If you're using an XSLTemplate and XSLProcessor object,
' you have to use the FreeThreaded versions of DOMDocument
Set oXmlsrc=CreateObject("MSXML2.FreeThreadedDOMDocument.4.0")
Call oXmlsrc.setProperty("ServerHTTPRequest", True) <<<<<<<<<<<< <<<<
should this be changed to xmlServerHttp?
oXmlsrc.async=False
Set oXslsrc=CreateObject("MSXML2.FreeThreadedDOMDocument.4.0")
Call oXslsrc.setProperty("ServerHTTPRequest", True) <<<<<<<<<<<<<<<<<
should this be changed to xmlServerHttp?
oXslsrc.async=False
Set oXslTemplate = Server.CreateObject("MSXML2.XSLTemplate.4.0")
' If I haven't posted the form first, then load my unaltered XML.
' If I'm posting info to resort or edit, then build my XML from that.
'On Error Resume Next 'debugging code
If Request.Form("acctname") = "" Then
Call oXmlsrc.load(???????)
<<<<<<<<<<<<<<<<<<<<<<<<< what object should be here?
'Response.Write "" 'debugging code
newXML=oXmlsrc.xml
Set re=new regexp
re.pattern=" xmlns.+?>"
newXML=re.replace(newXML,">")
Call oXmlsrc.loadxml(newXML)
else
....