ASP 翻页出现错误,老是实现不了,急!!!

<%
i=1
sub showonepage(STRrs,page)
STRrs.absolutepage=page
for ipage=1 to STRrs.pagesize
newsid=trim(STRrs("newsID"))
newstitle=trim(STRrs("NewsTitle"))
%>
<%
STRrs.MoveNext
if STRrs.eof then exit for
i=i+1
NEXT
END SUB
showonepage STRrs,page

%>
<%
If Page <> 1 Then
Response.Write"<a href=NewsShow.asp?page=1>首页</a> | "
Response.Write"<a href=NewsShow.asp?page=" & page-1 & ">前页</a> | "
else
Response.Write"首页 | 前页 | "
end if
if page<>STRrs.PageCount then
Response.Write"<a href=NewsShow.asp?page=" & page+1 & ">后页</a> | "
Response.Write"<a href=NewsShow.asp?page=" & STRrs.PageCou

Response.Write"<a href=NewsShow.asp?page='"&page+1&"'>后页</a> | "

这样就好了，其它的也改

补充：什么错误提示？

<!--#include file="conn.asp"-->

<%

sql="select * from news"
set rs=server.CreateObject("adodb.recordset")
rs.open sql,conn,1,1
%>
<%
rs.pageSize=4 '把 rs 记录集分页，每页4条

dim pageNo '自定义变量，表示要显示的第几页中的纪录

pageNo=cint( request.querystring("pn") )

if pageNo="" or pageNo<1 then
pageNo=1
end if

if pageNo>rs.pageCount then
pageNo=rs.pageCount
end if

rs.absolutePage=pageNo

%>

<%

i=1
do while not rs.eof and i<=rs.pageSize
%>
<table width="172" height="39" border="0" cellpadding="0" cellspacing="0">