asp分页显示代码问题

我的代码，不能打开“下一页”和“最后一页”，怎么也找不出来错在哪儿？求助各位。
<%
Dim mykey
mykey=request.form("keywords")
Set conn=Server.CreateObject("ADODB.Connection")
Conn.ConnectionString="Provider=Microsoft.Jet.OLEDB.4.0;Data Source="& Server.MapPath("LI!DATA/rzsf#lijianhua= =%0633%.mdb")
Conn.Open

Set rs=Server.CreateObject("ADODB.Recordset")
Set rs.ActiveConnection=Conn
rs.CursorType=3
rs.Open"Select * From lijianhua0633 Where gjc Like '%"&mykey&"%' Order by dw"
Response.Write("<br>本次共查询到“ <font color=red>"&mykey&"</font> ”<font color=red> "& CStr(rs.RecordCount)& "</font> 条。<br>")
rs.PageSize = 20
'读取参数
page = CLng(Request.QueryString("page"))
'处理无效页码
If page < 1 Then
page = 1
End If
If page > rs.PageCount Th

ASP+ACCESS的
<%
Set conn=Server.CreateObject("Adodb.Connection")
connstr="provider=Microsoft.JET.OLEDB.4.0;Data Source="&Server.MapPath("data.mdb")
conn.open connstr
Set rs=Server.CreateObject("Adodb.Recordset")
sql="Select * from info"
rs.open sql,conn,1,1
%>

<%
rs.pagesize=5 '每页记录条数
curpage=Request.QueryString("curpage") '将URL参数curpage传给curpage变量
if curpage="" then curpage=1
rs.absolutepage=curpage '将本页设为curpage设置的页数
%>

<%
for i= 1 to rs.pagesize
if rs.eof then
exit for
end if
%>
<%=rs("record_info")%><br>
<%
rs.movenext
next
%>

<br>
<div>当前第<%=curpage%>页，共有<%=rs.pagecount%>页，共有：<%=rs.recordcount%>条记录</div>
<%if curpage=1 then%>
首页
<%else%>