一句批量删除的sql问题

id=request.form("checkbox") 
  id=Split(id,",") 
  shu=0 
  for i=0 to UBound(id)
  conn.Execute = "update [list] set shtime=now() where id="&id(i)&" sh=0"
  conn.execute sql,shu1 
  shu=shu+1 
  next

我想实现，批量写入所有当sh=0的数据将shtime设置为当前时间，但是sql语句后面的sh=0这个判断无效，请问是不是循环不行的问题？得如何写？

VBScript code

Dim id, shu, shu1, sql
id = Request.Form("checkbox")
shu = 0
If id <> "" Then
    sql = "UPDATE [list] SET shtime=Now() WHERE id IN (" & id & ") AND sh=0"
    conn.Execute sql, shu1
    shu = shu + shu1
End If