下面这段程序，可以正常运行：
<%Call TurnPage(rs,RowCount)%>是调用一段翻页程序 TurnPage.asp，但是为什么我把<%Call TurnPage(rs,RowCount)%>加到显示记录的下面，上下都显示分页代码，就程序报错呢？？
错误类型：
ADODB.Recordset (0x800A0BB9)
/myasp/TurnPage.asp, 第 6 行





<%
set rs = Server.CreateObject("ADODB.Recordset")
StrSQL = "Select * from student order by mynumber "
rs.open StrSQL,conn,1,1
%>


    

<% Dim RowCount RowCount =5 '每页显示的记录条数 Call TurnPage(rs,RowCount) '公共翻页模块结束 %>

    
    
    
    
    

<%
If Not rs.eof then
Do while Not rs.eof and RowCount>0
%>

    
    
    
    
    

<%
RowCount = RowCount - 1
rs.MoveNext
Loop
End If
%>

学号	姓名	年龄	班级	入学日期
<%=rs("mynumber")%>	<%=rs("myname")%>	<%=rs("myage")%>	<%=rs("myclass")%>	<%=rs("mydata")%>

<%rs.close
set rs=nothing
conn.close
%>

显示记录那页的代码

<%
Sub TurnPage(ByRef Rs_tmp,PageSize) 'Rs_tmp 记录集 ; PageSize 每页显示的记录条数;
Dim TotalPage '总页数
Dim PageNo '当前显示的是第几页
Dim RecordCount '总记录条数
Rs_tmp.PageSize = PageSize
RecordCount = Rs_tmp.RecordCount
TotalPage = INT(RecordCount / PageSize * -1)*-1
PageNo = Request.QueryString ("PageNo")
'直接输入页数跳转；
If Request.Form("PageNo")<>"" Then PageNo = Request.Form("PageNo")
'如果没有选择第几页，则默认显示第一页；
If PageNo = "" then PageNo = 1
If RecordCount <> 0 then
Rs_tmp.AbsolutePage = PageNo
End If

'获取当前文件名，使得每次翻页都在当前页面进行；
Dim fileName,postion
fileName = Request.ServerVariables("script_name")
postion = InstrRev(fileName,"/")+1
'取得当前的文件名称，使翻页的链接指向当前文件；
fileName = Mid(fileName,postion)
%>

总页数：<%=TotalPage%>页 当前第<%=PageNo%>页

<%If RecordCount = 0 or TotalPage = 1 Then Response.Write "首页|前页|后页|末页" Else%> <%If PageNo - 1 = 0 Then      Response.Write "首页|" Else%> 首页| <%End If If PageNo - 1 = 0 Then Response.Write "前页|" Else%> 前页| <%End If If PageNo+1 > TotalPage Then Response.Write "后页|" Else%> 后页| <%End If%> <%End If If PageNo+1 > TotalPage Then Response.Write "末页|" Else%> 末页 <%End If%>

转到第 <%If TotalPage = 1 Then%> <%Else%> 页 <%End If%>

<%End Sub%>

到底出了什么问题啊？ 各位老大?

呵呵,看看是不是这个?



<%
set rs = Server.CreateObject("ADODB.Recordset")
StrSQL = "Select * from student order by mynumber "
rs.open StrSQL,conn,1,1
%>

<% Dim RowCount RowCount =5 '每页显示的记录条数 Call TurnPage(rs,RowCount) '公共翻页模块结束 %>

<%
If Not rs.eof then
Do while Not rs.eof and RowCount>0
%>







<%
RowCount = RowCount - 1
rs.MoveNext
Loop
End If
%>

学号	姓名	年龄	班级	入学日期
<%=rs("mynumber")%>	<%=rs("myname")%>	<%=rs("myage")%>	<%=rs("myclass")%>	<%=rs("mydata")%>

<% Dim RowCount1 RowCount1 =5 '每页显示的记录条数 Call TurnPage(rs,RowCount1) '公共翻页模块结束 %>

<%rs.close
set rs=nothing
conn.close
%>

当然可以了


<%
set rs = Server.CreateObject("ADODB.Recordset")
StrSQL = "Select * from student order by mynumber "
rs.open StrSQL,conn,1,1
%>

<% Dim RowCount RowCount =5 '每页显示的记录条数 i = RowCount Call TurnPage(rs,RowCount) '公共翻页模块结束 %>

<%
If Not rs.eof then
Do while Not rs.eof and i>0
%>







<%
i = i - 1
rs.MoveNext
Loop
End If
%>

学号	姓名	年龄	班级	入学日期
<%=rs("mynumber")%>	<%=rs("myname")%>	<%=rs("myage")%>	<%=rs("myclass")%>	<%=rs("mydata")%>

<% Call TurnPage(rs,RowCount) '公共翻页模块结束 %>

<%rs.close
set rs=nothing
conn.close
%>