200分求救,递归时出现的问题？

[海天候]

call getvalue(session("kc_id"),0,tmplmid,1)
'测试程序程序段,递归得到所有值列表
'参数说明：kcid:课程ID，pid:前一结点ID，lmid:栏目ID,i：计数器,divid:前一结点ID

sub getvalue(kcid,pid,lmid,i)
set rs=server.createobject("adodb.recordset")
rs.open "select * from data_node where kc_id="&kcid&" and lm_id="&lmid&" and

prior_nodeid="&pid,conn,1,1

if (rs.bof and rs.eof) then'该结点下已经没有子结点则返回
rs.close
set rs=nothing
exit sub
end if

for m=1 to rs.recordcount
%>
<a href="#"

onclick="document.all.node<%=i%>_<%=m%>.style.display=(document.all.node<%=i%>_<%=m%>.style.displ

ay =='none')?'':'none'">
<%
for m=0 to rs("node_level") '空格符的生成
response.write " "
next
%>
<%=rs("node_name")%></a><br>
<div id="node_node<%=i%>_<%=m%>" style="display:none">
<%
nodeid=rs("node_id")
call getvalue (session(kc_id),nodeid,lmid,m)'递归读值
response.write "</div>"
rs.movenext‘出错行
next
rs.close
set rs=nothing
end sub
出错提示：
缺少对象；

[_TMG_]

sub getvalue(kcid,pid,lmid,i)
dim rs
.
.
.
.



try this

[海天候]

兄弟,不行呀 ,不知什么原因？

[BrightEye]

rs.movenext去掉呢?

[海天候]

搞定了，谢谢各位兄弟。