请大家帮忙看看这段语句错在哪里，为什么一直调试不出来，谢谢啦～～～

其中checked_job是返回数字2，each_id是返回之前页面复选框对对应的数据库id号码

Dim checked_job

checked_job = request.Form("checked")
response.Write checked_job

Dim each_id,sql,rs

For I=1 to request.Form("id").count
    each_id = request.Form("id")(I)
   
    set rs=server.CreateObject("adodb.recordset")
    Sql="update materiel_list set checked = '"& checked_job &"' where id = "& each_id
    rs.Open sql,db,1,2   
Next