如图：要从上面xx表中通过任一个ID查询其连续四代的后人列表，sx表示代数，zp是派序，FID是父ID（表中唯一的关联关系,）bid是与另一张的关联，先不必管。
输入时要按下表的格式输入，因为最后要用word编辑成册的。
诚求各位高人出手相助！
我是新人，现在没分

查询办法可以参考论坛分版块的办法

查询的代码我已经写出来了：
<%dim id, xm, sx, pi(5), ct, nc(5,10), arr(5,10,10,3), tid
id=trim(saferequest("id"))
sx=trim(saferequest("sx"))
xm=trim(saferequest("xm"))
<!------------------- 查找宗派 ------------------------>
    set rs=server.createobject("adodb.recordset")
for i=1 to 5
    sql="select zp from jb where sx="&sx+i-1
    rs.open sql,conn,1,1
        if rs.eof then
            pi(i)=""
        else
            pi(i)=rs("zp")
        end if
    rs.close
next
<!------------------- 查第二世名单 ------------------------>
sql2="select * from jb where fid="&id&" order by id"            
rs.open sql2,conn,1,1
if not rs.eof then
        ct=rs.recordcount
        nc(1,1)=ct                                    '储存下人数
        for i=1 to ct                                    '循环，分别查找个人记录
            arr(2,1,i,1)=rs("xm")                        '储存姓名
            arr(2,1,i,2)=rs("xb")                        '储存xx表中的ID号
            arr(2,1,i,3)=rs("bid")                        '储存FID号
            rs.movenext
        if rs.eof then exit for
        next
else
    nc(1,1)=1
    arr(2,1,1,1)="none"
end if
rs.close

'<!------------------- 查第三至五世名单 ------------------------>
for p=3 to 5
        m=1
        for n=1 to 10
            if nc(p-2,n)<>"" then
        m=m+1
            end if
        next
  for k=1 to m
  for j=1 to nc(p-2,k)
      if arr(p-1,1,j,3)="" then
        nc(p-1,j)=1
        arr(p,j,1,1)="none"
      else
    tid =arr(p-1,k,j,3)
    sql3="select * from jb where fid="&tid&" order by id"            
    rs.open sql3,conn,1,1
    if not rs.eof then
        ct=rs.recordcount
        nc(p-1,j)=ct                                        '储存下人数
        for i=1 to ct                                    '循环，分别查找个人记录
            arr(p,j,i,1)=rs("xm")                        '储存姓名
            arr(p,j,i,2)=rs("xb")                        '储存xx表中的ID号
            arr(p,j,i,3)=rs("bid")                        '储存FID号
            rs.movenext
        if rs.eof then exit for
        next
    end if
    end if
    rs.close　　　‘错误行’
next
next
next
set rs=nothing
%>
但是为什么当提交的ID＝1、2、3、4、7的时候能执行成功，而当ID＝5、6、8的时候却提示出错呢？
错误：对象打开时，不允许操作。
另外，怎么才能输出成上图所示的表格形式呢？？？？