为什么显示不了记录

<!--#include file="conn.asp"-->
<table width="748" border="0" align="center">
<tr bgcolor="#CCCCCC">
<td>标题</td>
<td>有效日期</td>
<td>联系人</td>
<td>联系方式</td>
</tr>

<%

dim objrs ,sql
sql="select proname, data,person,tel from tbbuy"
set objrs =server.createobject("adodb.recordset")

objrs.open sql ,cnn ,1,1

sub showpage (objrs,pageno)

objrs.absolutepage=pageno
for i=1 to objrs.pagesize


response.write "<TR><td>"&objrs("proname")&"</td>"
response.write "<td>"&objrs("data")&"</td>"
response.write"<td>"&objrs("person")&"</td>"
response.write"<td>"&objrs("tel")&"</td></tr>"
objrs.movenext
if objrs.eof then exit for
next
response.write "</table>"
end sub

objrs.pagesize=5

for i=1 to objrs.pagecount

response.write"<A HREF='paging.asp?page="&i&"'>"&i&"&nbsp;"&""
next

pageno=request("page")
if pageno<>""then
showpage objrs.pageno
end if
response.write "共"&objrs.pagecount&"页"

objrs.close
set objrs=nothing
cnn.close
set cnn=nothing
%>

不知道

晕到

sub showpage (objrs,pageno)

showpage objrs.pageno

函数调用错误

<!--#include file="conn.asp"-->
<%
set rs=server.createobject("adodb.recordset")
rs.open "select * from news",mydb,1,3
rs.pagesize=1
if request.querystring("page")="" then
page=1
else
page=cint(request.querystring("page"))
end if
rs.absolutepage=page
a=rs.pagesize
do while not rs.eof and a>0
for i=0 to rs.fields.count-1
response.write rs.fields(i).value
next
response.write "<td>"
rs.movenext
a=a-1
loop
response.write "<p align='center'>"
for i=1 to rs.pagecount
if i=page then
response.write i&"&nbsp;"
else
response.write "<a href='fy.asp?page="&i&"'>"&i&"</a>&nbsp;"
end if
next
response.write "</p>"
%>