初学者提问，我照书上的代码写，但是为什么页面不能正常显示记录，而且上一页和下一页有错误

初学者提问，我照书上的代码写，但是为什么页面不能正常显示记录，而且上一页和下一页有错误这是个后台管理的页面~~请大家帮我改一下`~


<!--#include file="conn.asp"-->
<!--#include file="check.asp"-->
<%
sub check()
%>
<script language="javascript">
c=document.form1.page.value
</script>
<%
if c<>"" then
if not isnumeric(c) then
msgbox"页数只能输入数字"
document.form1.page.select()
exit sub
end if
else
msgbox"请输入想要转到页数"
document.form1.page.select()
exit sub
end if
document.form1.submit()
end sub
%>
<html>
<head>

<title>判断题题库管理</title>
<style type="text/css">
<!--
.style2 {font-weight: bold; font-size: 14pt;}
.style3 {font-size: 9pt}
a:link {
text-decoration: none;
}
a:visited {
text-decoration: none;
}
a:hover {
text-decoration: none;
}
a:active {
text-decoration: none;
}
-->
</style>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312"></head>

<body>
<p align="center"><font face="隶书" size="5">判断题 题库管理</font><br>
<a href="type_1_add.asp" class="style3">添加新题</a></p>
<div align="center">
<center>
<table width="600" border="1" cellpadding="5" cellspacing="0" style="border-collapse:collapse " bordercolor="#111111">
<tr>
<form name="form2" method="get" action="">
<%
keyword=trim(request("keyword"))
if keyword="" then
keyword="所有题目"
end if
%>
<td align="center" colspan="5" class="style3">以下是按关键字<font color=red>
<% =keywords %>
</font>的查询结果  查找
<input type="text" name="keyword" size="20">
题目
<input type="submit" name="B1" value="查找" style="width:60; height:22; border-style:solid; border-width:1px; background-color:#ffffff">
</td>
</form>
<%
set rs=server.CreateObject("adodb.recordset")
sql="select * from rightorwrong where question like '% "&keyword&"%'"
rs.open sql,conn,3,1,1
rs.pagesize=10
%>
<%
if not (rs.eof and rs.bof) then
Page=cint(request.QueryString("Page"))
if page<1 then page=1
if page>rs.pagecount then page=rs.pagecount
showpages rs,page
else
%>
<tr>
<td colspan="5"><center>
<font color="red">没有您查的试题信息</font>
</center></td>
</tr>
<% end if %>
<%
sub showpages(rs,page)
rs.absolutepage=page
for i=0 to rs.pagesize-1
j=j+1
if j mod 2=0 then
bg="#EFEFF7"
else
bg="#FFFFFF"
end if
%>
<tr bgcolor=<%=bg%>>
<td align="center"><%=rs("rightorwrongid")%></td>
<td><%=rs("question")%></td>
<td align="center">
<% if rs("answer")=true then
d="对"
else
d="错"
end if
response.Write d
%></td>
<td align="center"><a href="type_1_edit.asp?id=<%=rs("rightorwrongid")%>">编辑</a></td>
<td align="center"><a href="type_1_del.asp?id=<%=rs("rightorwrongid")%>">删除</a></td>
</tr>
<% rs.movenext
if rs.eof then exit for
next
end sub %>
<tr>
<td colspan="5" align="center">
<p align="center">
<form action="type_1.asp?keyword=<%=keyword%>method="get" name=form1>
<p></p>
<%
response.Write rs.pagesize&"第一页  "
if page=1 then
response.Write"下一页 "
end if
if page<>1 then
response.Write "<a HREF=type_1_asp?keyword="&keyword&"&Page=1>第一页</a)"
response.Write "<a HREF=type_1_asp?keyword="&keyword&"&Page="&(page-1)&">上一页</a)"
end if
if page<>rs.pagecount then
response.Write"最后一页"
end if
response.Write "总共有"&rs.pagecount&"页, 目前是第"&page&"页"
%>
转到<font class="a">
<input name="Input" maxlength="8" size="4"name="page" value=<%=page%>>
<input type="hidden" value=<%=keyword%>name="keyword">
页<span lang="en-us"></span>
<input class="buttonface" type="button" value="Goto" onclick=check() ></font><br>
</form></td>
</tr>

</table>
</div>
<p class="style2" align="center" > </p>
</body>
</html>