求救：“数组索引越界”错误~~~请高手帮忙！！！
出现“数组索引越界”错误，那位高手能帮忙改一下，谢谢代码如下：
<%
if request.form("jsfsh").count<>0 then
for i=1 to request.form("jsfsh").count
id=request.Form("id")(i)
qsrq=trim(Request.Form("qsyear"))&"-"&trim(Request.Form("qsmonth"))&"-"&trim(Request.Form("qsday"))
jsrq=trim(Request.Form("jsyear"))&"-"&trim(Request.Form("jsmonth"))&"-"&trim(Request.Form("jsday"))
set rs=server.CreateObject("adodb.recordset")
sql = "select * from jiage where kc_id="+id
rs.Open sql,conn,1,3
rs("chd") = Request.form("jsfsh")(i)
rs("jhj") = Request.form("thj")(i)
rs("qrj") = Request.form("thj")(i)
rs("bbrq") = qsrq
rs("rkrq") = jsrq
rs("addtime") = now()
rs("shx") ="1"
rs.Update
rs.Close
set rs=nothing
next
end if
response.write "<p>"
response.write "<div align=center><br><br><br><font color=red>信息添加成功</font></div>"
%>
