asp分页程序问题

<% set conn=server.createobject("ADODB.Connection")
conn.open "Driver={Microsoft Access Driver (*.mdb)};dbq=" &server.mappath("message.mdb") %>

<% Set rs = Server.CreateObject ("ADODB.Recordset")
sql="select * from mytable"
rs.Open sql, conn, 1 %>

<% rs.PageSize=10
IF rs.Eof THEN
Response.Write("<font size=2 color=#000080>[数据库中没有记录！]</font>")
ELSE
If Request("rs.CurrentPage")="" Then
rs.AbsolutePage=1
Else
rs.AbsolutePage=CLng(Request("rs.CurrentPage"))
End If %>

<% if rs.PageCount=1 then
Response.Write("[第一页] [上一页] [下一页] [最后一页] ")
else
if rs.AbsolutePage=1 then

Response.Write("[第一页] [上一页] ")
Response.Write("[<a Href="test.asp?Page=<% =request("page") + 1%>">下一页] ")