问题：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）