Hej, Skall du inte skriva så här? får detta felFOR XML AUTO
Tänkte prova att få ut resultatet som xml ur en sql-db
Men hittar bara info om hur man sparar det till en ny sida.
Det enda jag vill är att skriva ut svaret på samma asp sida.
<code>
' ansluter till min datakälla
Set Connect = Server.CreateObject("ADODB.Connection")
Connect.Open "webbtest"
sql = "select * from GREEN_CatalogProducts FOR XML AUTO"
set rs = Connect.Execute(sql)
' kör frågan mot tabellen
connect.execute sql
do until rs.eof
' response.write(rs("itemno"))
rs.movenext
loop
</code>Sv: FOR XML AUTO
<code>
Dim Connect
Dim Command
Const adCmdText = 1
Const adExecuteStream = 1024
' ansluter till min datakälla
Set Connect = Server.CreateObject("ADODB.Connection")
Connect.Open "webbtest"
Set Command = Server.CreateObject("ADODB.Command")
Command.CommandType = adCmdText
Command.CommandText = "SELECT * FROM GREEN_CatalogProducts FOR XML AUTO"
' kör frågan mot tabellen
Command.Properties("Output Stream") = Response
Response.Write "<XML ID='MyDataIsle'>"
Command.Execute , , adExecuteStream
Response.Write "</XML>"
</code>Sv: FOR XML AUTO
Feltyp:
ADODB.Command (0x800A0CC1)
Objektet kunde inte hittas i mängden med det begärda namnet eller numret.
/test/default1.asp, line 16
raden --- 16
Command.Properties("Output Stream) = Response