下标越界的问题。

使用aspcms，后台添加产品信息，正常添加了5条产品信息后，第六条添加不了，出错信息：


Microsoft VBScript 运行时错误 错误 '800a0009' 下标越界: 'i' /cms/admin/_content/_Content/AspCms_ContentFun.asp，行 179

if sortType="3" then
  dim i :i=0
  dim rsObj : Set rsObj=Conn.Exec("select SpecField from {prefix}SpecSet order by SpecOrder,SpecID","r1")
  Do While not rsObj.Eof  
  specStr = specStr&","&rsObj(0)
valueStr = valueStr&",'"&trim(spec(i))&"'"
  i=i+1
  rsObj.MoveNext
  Loop  
  rsObj.Close : set rsObj=Nothing
end if


头疼中，求解。。。
 

spec(i) ?没有看见这个变量呢？