asp 生成XML - Web 开发 / ASP

原XML文件；
<?xml version="1.0" encoding="utf-8" ?> 
<dataroot>
<news>
<new>
<title>新闻标题1</title>
<shortdesc><![CDATA[sinker.cn flash片]]></shortdesc>
<date>1</date>
<link>http://www.sinker.cn</link>
</new>
<new>
<title>新闻标题2</title>
<shortdesc><![CDATA[sinker.cn flash片]]></shortdesc>
<date>1</date>
<link>http://www.sinker.cn</link>
</new>
</news></dataroot>
下面是我做的生成像上面那个XML内容的xml.asp文件；代码如下：
<% @language="VBScript" @codepage="65001"%>
<%
Option Explicit
Response.contentType="news/xml"
dim conn,connstr,rs,sql
connstr="provider=Microsoft.Jet.OLEDB.4.0;data source="&Server.MapPath("Data-2007/sou596#zuoyun.mdb")&";"
set conn=Server.CreateObject("ADODB.Connection")
set rs=Server.CreateObject("ADODB.RecordSet")
conn.open connstr
sql="select top 6 * from news order by ID desc"
rs.open sql,conn,1,1
Response.Write("<?xml version='1.0' encoding='utf-8'?><dataroot><news>")
%>
<%
do while not rs.eof
Response.Write("<new><titl