Unable To Get Xml From Query/procedure In Asp, 64 Bit System

Please help me to get the xml from procedure in asp 64 bit system.
The below code is executed in 32-bit system and display the XML in browser. But if you run the same code in 64-bit system (windows 2003 standard R2) the values replaced with question marks and it it displayed the following error.
I am using SQl server 2000 as a DataBase.

This is very urgent.

Blow is the code with file name test64bit.asp
<%
Dim str_XML
dim cn

set cn = server.createobject("adodb.connection")
cn.ConnectionString = "Provider=SQLOLEDB;User ID=sa;Password=Password;Initial Catalog=northwind;Data Source=SystemName;Network Library=DBMSSOCN;"
cn.Mode = adModeReadWrite
cn.Open

set rsXml = Server.CreateObject("Adodb.recordset")

strSql = "select * from Products for xml auto"
rsXml.open strSql ,cn

while not rsXml.EOF
response.write rsXml(0).value
str_XML = str_XML & rsXml(0)
rsXml.MoveNext
wend

rsXml.close

response.write "str_XML::" & str_XML & "<br>"

%>


Following is the error

?ProductID?ProductName?SupplierID?CategoryID?Quant ityPerUnit?UnitPrice?UnitsInStock?UnitsOnOrder?Reo rderLevel?Discontinued?Products?Al
Microsoft VBScript runtime error '800a000d'

Type mismatch
/ASP/test64bit.asp, line 21