xml生成

原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><title>"&rs("Title")&"</title><shortdesc><![CDATA[123]]></shortdesc><date>"&rs("AddDate")&"</date><link>shownews.asp?ID="&rs("ID")&"</link></new>")
rs.movenext
loop
%>
<%
Response.Write("</news></dataroot>")
rs.close
conn.close
set rs=nothing
%>