数据索引越界

<!--#include file="Include.inc" -->

<%
Response.Charset="GBK"   
    if Session("KeyUserID")="" then
        call errorHistoryBack("非法操作")
    end if
    
    Dim ID,PrizeName,PrizeNum,RrizeAllCost,UserID,addr,linkMan,linkPhone
    
    UserID=Session("KeyUserID")
    linkMan=trim(request.form("linkMan"))
    linkPhone=trim(request.form("linkPhone"))
    addr=trim(request.form("addr"))
    
    For i=1 to request.form("ID").count
    
    ID=Request.Form("ID")(i)
    PrizeName=Request.form("PrizeName")(i)
    PrizeNum=Request.form("PrizeNum")(i)
    PrizeAllCost=Request.form("RrizeAllCost")(i)
    

%>



<%
     Dim sql,conn
     Call OpenConn()
    'sql="UpDate tbl_SendInfo Set SendComp='"&SendComp&"',SendPhone='"&SendPhone&"',SendAddr='"&SendAddr&"',SendState=2 Where SendNo='"&SendNo&"'"
    sql="insert into tbl_PrizePayList(PayID,PayUserID,PayPrizeName,PayNum,PayAllCost,PayUserName,PayPhone,PayAddr) values ('"&ID&"','"&UserID&"','"&PrizeName&"','"&PrizeNum&"','"&PrizeAllCost&"','"&linkMan&"','"&linkPhone&"','"&addr&"')"
    conn.Execute(sql)
    next
    Call MyMessage("已经添加成功")
    Call CloseConn()

%>