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）