rss问题，实在不行了，求助！！！
我在网上找的一段ASP的生成rss的代码，如下
==============
<!--   #include   file= "conn.asp "   -->  
<%  
Dim       sSQL,       rs,       sCrLf,       sXmlClear,       sRssHead,       sRssEnd  
sCrLf   =   chr(13)   &   chr(10)     '回车+换行  
sXmlClear   =   " <?xml   version= '1.0 '   encoding= 'gb2312 '?> "   &   sCrLf  
sRssHead   =   " <rss   version= '2.0 '> "   &   sCrLf  
sRssHead   =   sRssHead   &   " <channel> "   &   sCrLf  
sRssHead   =   sRssHead   &   " <title>   Why100000   </title> "   &   sCrLf  
sRssHead   =   sRssHead   &   " <description>   Why100000   </description> "   &   sCrLf  
sRssHead   =   sRssHead   &   " <link> http://news.why100000.com/ <;/link> "   &   sCrLf  
sRssHead   =   sRssHead   &   " <language> zh-cn </language> "   &   sCrLf  
sRssHead   =   sRssHead   &   " <docs> Why100000.COM   News   Center </docs> "   &   sCrLf  
sRssHead   =   sRssHead   &   " <generator> Rss   Generator   By   WWW.Why100000.COM </generator> "   &   sCrLf  
sRssEnd   =   " </channel> </rss> "  
Response.CharSet= "gb2312 "     '数据集  
Response.ContentType= "text/xml "     '数据流格式定义  
'输出：  
Response.write   sXmlClear  
Response.write   sRssHead  
sSQL= "select   top   15   *   from   news   order   by   id   desc "  
Set   rs   =   Server.CreateObject( "ADODB.Recordset ")  
rs.Open   sSQL,   s_Conn,   1,1  
if   not   (rs.eof   and   rs.bof)   then  
do   while   not   rs.eof  
response.write   " <item> "   &   sCrLf  
response.write   " <title> "   &   rs( "title ")   &   " </title> "   &   sCrLf  
response.write   " <link> "   &   "http:/127.0.0.1/news.asp?id= ";   &     rs( "id ")   &   " </link> "   &   sCrLf  
response.write   " <author> "   &   rs( "content ")   &   " </author> "   &   sCrLf  
response.write   " <pubDate> "   &   rs( "date ")   &   " </pubDate> "   &   sCrLf  
response.write   " </item> "   &   sCrLf   &   sCrLf  
rs.movenext  
loop  
end   if  
rs.close  
set   rs=nothing  
Response.write   sRssEnd  
%>  
====