杰娜微博何桉哥哥:批量更新的问题

代码如下：
'开始批量删除，多选框删除。
if request("action") = "del_all" then
arrdel=Request("wwwid")
Dim weburlid2
‘这个变量实质上就是weburl里的ID，也是web表中的weburlid
'批量读取web表中的weburlid值，
set rs1=server.createobject("adodb.recordset")
sqll="select weburlid from WEB where wwwid in ("&arrdel&")"
rs1.Open sqll,conn,1,1
weburlid2 = ""
If Not rs1.Eof Then
weburlid2 = rs1("weburlid")
End If
rs1.Close
Set rs1 = nothing
‘进行删除
sql9="delete from WEB where wwwid in ("&arrdel&")"

conn.Execute sql9
set conn=nothing
'
'
If weburlid2 <> "" Then
sqla = "UPDATE WEBURL " & _
"SET abc = 1, efd=0 " & _
"WHERE id in ("&weburlid&")"
conn.Execute sqla

这样执行后，出现缺少对象错误。
不知道这样的方法是否正确，希望高手能帮我看看，或者有没有其他好的方法，谢谢。
谢谢你能回帖，我已感到很安慰了，我一边不断的刷新问题看是否有人回答了，一边在网上拼命的找答案，现在解决问题了。
这么改：
sqla = "UPDATE XS20_WEBURL " & _
"SET sh = 1, sl=0 " & _
"WHERE id in (select weburlid from XS20_WEB where wwwid in ("&arrdel&"))"
conn.Execute sqla
现在okle 。