在线考试系统评分出错！！怎么办？

'计算单选题得分
  for i=1 to singlenumber
    result=request.form("no"&id1(i-1)){运行后显示这一行下标越界: '[number: 10]'}
    if  not isempty(result) then
      sql="select * from question where id="& clng(id1(i-1))
      set rs=server.createobject("adodb.recordset")
      rs.open sql,conn,3,2     
      if result=rs("answer") then
        score=score+cint(singleper)
      end if
      rs.close
      set rs=nothing
    end if
  next
技术信息（用于支持人员）

错误类型：
Microsoft VBScript 运行时错误 (0x800A0009)
下标越界: '[number: 10]'
/exam/result.asp, 第 31 行


浏览器类型：
Mozilla/4.0 (compatible; MSIE 6.0; Windows NT 5.1; SV1; CIBA; .NET CLR 2.0.50727; .NET CLR 3.0.04506.30)

网页：
POST 102 ??? /exam/result.asp

POST Data:
hidQuestID1=5%2C9%2C6%2C7%2C2%2C8%2C1%2C4%2C11%2C10%2C&hidQuestID2=12%2C13%2C14%2C&submit=%BD%BB%BE%ED

时间：
2011年4月20日, 下午 09:00:26


详细信息：
Microsoft 支