Asp SQL Server 2000 reads records and directly generates XML documents

<% @ Language = "VBScript" %>
<%
Dim objconn, objcmd, I
Set objconn = server. Createobject ("ADODB. Connection ")
Objconn. Open "provider = sqloledb.1; Password = sa; persist Security info = true; user id = sa; initial catalog = ca800; Data Source =

(Local )"
Set objcmd = server. Createobject ("ADODB. Command ")
Objcmd. activeconnection = objconn
Objcmd. properties ("output stream") = Response
Objcmd. properties ("XML root") = "root"
'Objcmd. properties ("output encoding") = "gb2312"
Objcmd. commandtext = "select top 20 * From ca_news for XML auto, elements"
Response. contenttype = "text/XML"
Objcmd. Execute I, 1024 'adexecutestream
Set objcmd = nothing
Objconn. Close
Set objconn = nothing

%>