关于生成XML问题

首先
VBScript code

<% @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=pos; Data Source=172.16.11.30"
  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 * from users for XML Auto,elements"
  Response.ContentType = "text/xml"
  objCmd.Execute i,,1024 'adExecuteStream
  Set objCmd = Nothing
  objConn.Close
  Set objConn = Nothing
%> 

这个将该网页test.asp中的内容变成了XML内容，我要的结果是，如何在该目录生成一个XML文件。而不是在网页中显示。我好在Extjs中引用，谢谢！

没人来帮帮小弟么。。。？？