<% @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
%>