ASP导出CSV问题

大家好,请大家帮忙,要求ASP导出成CSV时,导出的记录中每条记录之间用回车隔开,最后一条记录不允许出现回车符,最终效果如下:
张三,1983-02-23,男,本科(此处回车符)
李四,1983-02-24,男,大专(此处回车符)
王麻子,1983-02-24,男,中专(此处不允许回车符,最后一条记录)


我现有的代码是:

set rs = conn.Execute("select * from Table order by Id Asc")
if rs.eof then
response.Write("<script language=javascript>alert('对不起,没有您要的数据!');window.location.href='index.html';</script>")
response.end
end if
fname=replace(replace(replace(now(),"-","")," ",""),":","")
Response.Buffer = true
Response.AddHeader "Content-Disposition","attachment;filename="&fname&".csv"
Response.CharSet = "UTF-8"
Response.ContentType = "application/octet-stream"
do while not rs.eof
Response.Write rs(1)
for i=2 to rs.fields.count-1
Response.Write","&rs(i)
next
Response.Write chr(13)
Response.Flush()
rs.Movenext
loop
Response.End()

这个代码运行后得到的结果是:

张三,1983-02-23,男,本科(此处回车符)
李四,1983-02-24,男,大专(此处回车符)
王麻子,1983-02-24,男,中专(此处回车符)

最后一条记录中还是有回车符.




请大家帮忙,谢谢了!!!!

---

小