我错在哪里？请指教

[yiran731028]

错误 '80020009'
发生意外。

/xdsw/money_computer.asp, 行155

<%
dim j,sum
sum=0
if not(session("records1")).eof then
'session("records1").movefirst
for j=0 to session("records1").recordcount
sum=sum+session("records1")(3)
session("records1").movenext
next
session("records1").movefirst
%>

[beckheng]

不知道是否超出了记录集的范围，即已经到达了记录集的尾部了，但是循环语句却不知道这种情况，依然用了movenext方法。因此会遇到意外情况！
因此用for循环加上一句if session("records1").eof then exit for

[liaogs]

循环结束：
if ... then
.
.
end if