ADODB.Command error '800a0cc1'

Hi there, hoping there's some experts here who can help me.

I have the following function...

private function db_return_xml(sSQL)
Dim oCmd 'As Command
Dim oDom 'As IXMLDOMDocument2
dim sError
' create objects
Set oDom = CreateObject("MSXML2.DOMDocument.3.0")
Set oCmd = CreateObject("ADODB.Command")

' run database call to grab the xml
set oCmd.ActiveConnection = m_oConn
oCmd.CommandText = sSQL
oCmd.CommandType = 8

oCmd.Properties("Output Stream") = oDom
on error resume next
oCmd.Execute , , 1024
sError = err.description
on error goto 0
if sError <> "" then
response.Write("error fetching xml from database: '" & sError & "'<br/>" & _
"using sql: '" & sSQL & "'")
response.End()
end if

' return the xml
set db_return_xml = oDom

end function

Unfortunately this was not written by me, i've taken over this project half way through and the original coder is unavailable.

Basically, I know the code works fine as it is running LIVE at the moment, however we have recently installed a new server here and transfered all our local test sites over to it. Unfortunately it doesnt seem to like the line of code in BOLD, and throws up the error message ADODB.Commanderror '800a0cc1'.

Have we forgotten to install something on the server, I know it definitely has versions 1 to 4 of MSXML installed. So I don't think its that.

Any help would be greatly appreciated.

What is the error message itself?

Okay have sorted it, i'll give the answer in case anyone happens to search for this in the future.

The error comes from not having the SQLXML components installed on windows, these basically allow the normal ADODB component deal with XML data. To get SQLXML on to your machine though you also need the latest versions of SOAP and MDAC.

So there you have it once I installed these, it all started working fine.