Tek-Tips is the largest IT community on the Internet today!
Members share and learn making Tek-Tips Forums the best source of peer-reviewed technical information on the Internet!
-
Congratulations Westi on being selected by the Tek-Tips community for having the most helpful posts in the forums last week. Way to Go!
ADODB.Stream
- Thread starter stoggers
- Start date
Hello Mike,
I'm not sure if this is what your looking for... but I'll post it anyway,
Mark
Heres the code:
Set dbCmd.ActiveConnection = dbConn
dbCmd.CommandType = 1 'adCmdText
dbcmd.CommandText = "SELECT * FROM myTable FOR XML AUTO, ELEMENTS"
adoStream.Open
dbcmd.Properties("Output Stream"
.Value = adoStream
dbcmd.Execute , , 1024 'adExecuteStream
strXML = adoStream.ReadText
if strXML <> "" then
Set domXSL = Server.CreateObject("Microsoft.XMLDOM"
Set domData = Server.CreateObject("Microsoft.XMLDOM"
domXSL.async = false 'Don't forget to set this
domData.loadXML( "<Recs>" & strXML & "</Recs>" )
domData.Save "c:\oops.xml"
if domXSL.load( "c:\InetPub\ ) then
strXML = domData.transformNode( domXSL )
end if
end if
Response.Write strXML
I'm not sure if this is what your looking for... but I'll post it anyway,
Mark
Heres the code:
Set dbCmd.ActiveConnection = dbConn
dbCmd.CommandType = 1 'adCmdText
dbcmd.CommandText = "SELECT * FROM myTable FOR XML AUTO, ELEMENTS"
adoStream.Open
dbcmd.Properties("Output Stream"
.Value = adoStreamdbcmd.Execute , , 1024 'adExecuteStream
strXML = adoStream.ReadText
if strXML <> "" then
Set domXSL = Server.CreateObject("Microsoft.XMLDOM"
Set domData = Server.CreateObject("Microsoft.XMLDOM"
domXSL.async = false 'Don't forget to set this
domData.loadXML( "<Recs>" & strXML & "</Recs>" )
domData.Save "c:\oops.xml"
if domXSL.load( "c:\InetPub\ ) then
strXML = domData.transformNode( domXSL )
end if
end if
Response.Write strXML
- Status
Similar threads
- Locked
- Question