op=1时候删掉新闻再读取状态为2的新闻写入inc文件中使首页显示改变，不过运行到 rs.close好像没继续下去 请教那里出了问题？

if op=1 then
rs.delete
rs.update
rs.close
set rs=server.CreateObject ("ADODB.Recordset")
sql="select 标题,id from 新闻 where 状态 = 2 order by id desc"
rs.open sql,conn,1,3
if not(rs.eof) then
str=server.mappath("..\..\include\text0.inc")
Set fso = CreateObject("Scripting.FileSystemObject")
Set ts = fso.OpenTextFile(str, ForWriting)
for ia=1 to 6
if not(rs.eof) then
title0=rs("标题")
id0=rs("id")
if len(title0)>15 then
title0=mid(title0,1,15)&"..."
end if
'TS.WRITE    "" & title0& "
"
TS.WRITE "