sos：sql语句或conn语句未定义或对一个rs属性进行赋值时发生错误
问题：sql语句或conn语句未定义或对一个rs属性进行赋值时发生错误
前面已包含数据库连接文件，下面为出错的代码

sub deleteannounce(id)
dim rs3,sql1
set rs3=server.createobject("adodb.recordset")
sql1="SELECT * from webInfo where newsid="&cstr(id)//这边报错
rs3.open sql1,conn,3,3
do while not rs3.eof
rs3.delete
rs3.update
rs3.movenext
loop
response.Write("<script>alert('你确定删除？');location.href='default.asp';</script>")
End sub
closeDB


捣鼓半天了，不行，还请大虾指点，感激不尽

[解决办法]
具体报错信息是？
[解决办法]
newsid 在sql里 是什么类型的字段？
[解决办法]
cint（id）