how to return a xmldocument to classic asp

[Van Steenbergen Jan]

Hi everyone,

I'm making a SOAP request to a webservice from classic
asp with(SOAP Toolkit v3.0).
This function has to return the XML document or the
xmlstring to the classic asp page.
How can i do this?
Here is how i try todo it now:

Public Function getData(ByVal strParamValue As String)
As System.Xml.XmlD ocument
Dim connIsOpen As Boolean
Dim strXml As String
Dim xmlDoc As New XmlDocument()
'Dim xmlNodlist As XmlNodeList

strParamValue = strParamValue + "%"
connIsOpen = openConnection( )
If connIsOpen Then

Dim RelationCMD As SqlCommand = New SqlCommand
("SELECT Col001, Col002, Col003, Col004,Col005 FROM
EXPortrelatiede tails where Col003 LIKE '" & strParamValue
& "' FOR XML AUTO, ELEMENTS", sqlConn)

'return results to xmltextreader
Dim myXmlResult As System.Xml.XmlT extReader =
RelationCMD.Exe cuteXmlReader()

'process xml fragment
myXmlResult.Mov eToContent()
Do While myXmlResult.IsS tartElement
strXml = strXml & myXmlResult.Rea dOuterXml
()
Loop

xmlDoc.LoadXml( "<Relations >" + strXml
+ "</Relations>")
xmlDoc.CreateXm lDeclaration("1 .0", "iso-8859-
1", Nothing)
'xmlNodlist = xmlDoc.GetEleme ntsByTagName("* ")

'Debug.Write(xm lNodlist.Item(0 ).OuterXml)
getData = xmlDoc 'xmlNodlist.Ite m(0).OuterXml

myXmlResult.Clo se()
sqlConn.Close()
sqlConn.Dispose ()
End Function

And most important how can i receive this xmlDocument or
xmlstring in classic asp?

Thanxs in advance!

Van Steenbergen Jan

[Christoph Schittko [MVP]]

How about doing it "by hand" and typing the method on the web service as a
string? Then your classic asp client can receive the string and load it into
an MSXML DOM document object

--
HTH
Christoph Schittko [MVP]
Software Architect, .NET Mentor

"Van Steenbergen Jan" <ja************ ****@comit.be> wrote in message
news:06******** *************** *****@phx.gbl.. .

Hi everyone,

I'm making a SOAP request to a webservice from classic
asp with(SOAP Toolkit v3.0).
This function has to return the XML document or the
xmlstring to the classic asp page.
How can i do this?
Here is how i try todo it now:

Public Function getData(ByVal strParamValue As String)
As System.Xml.XmlD ocument
Dim connIsOpen As Boolean
Dim strXml As String
Dim xmlDoc As New XmlDocument()
'Dim xmlNodlist As XmlNodeList

strParamValue = strParamValue + "%"
connIsOpen = openConnection( )
If connIsOpen Then

Dim RelationCMD As SqlCommand = New SqlCommand
("SELECT Col001, Col002, Col003, Col004,Col005 FROM
EXPortrelatiede tails where Col003 LIKE '" & strParamValue
& "' FOR XML AUTO, ELEMENTS", sqlConn)

'return results to xmltextreader
Dim myXmlResult As System.Xml.XmlT extReader =
RelationCMD.Exe cuteXmlReader()

'process xml fragment
myXmlResult.Mov eToContent()
Do While myXmlResult.IsS tartElement
strXml = strXml & myXmlResult.Rea dOuterXml
()
Loop

xmlDoc.LoadXml( "<Relations >" + strXml
+ "</Relations>")
xmlDoc.CreateXm lDeclaration("1 .0", "iso-8859-
1", Nothing)
'xmlNodlist = xmlDoc.GetEleme ntsByTagName("* ")

'Debug.Write(xm lNodlist.Item(0 ).OuterXml)
getData = xmlDoc 'xmlNodlist.Ite m(0).OuterXml

myXmlResult.Clo se()
sqlConn.Close()
sqlConn.Dispose ()
End Function

And most important how can i receive this xmlDocument or
xmlstring in classic asp?

Thanxs in advance!

Van Steenbergen Jan