菜鸟求救 有关ASP模糊查询的分页问题 那个大侠能教教我 怎么把以下程序调通 小弟谢了

<html>
<head>
<title>tre</title>
</head>
<body>
<%
set conn=Server.CreateObject("ADODB.CONNECTION")
conn.Open"Provider=MICROSOFT.JET.OLEDB.4.0;Data Source=F:\AA.mdb;"
set rs = server.CreateObject("ADODB.recordset")
rs.CursorType=adOpenStatic
rs.open "select * from B where id like '%1%' or 2 like '%1%' or 3 like '%1%' or 4 like '%1%' or 5 like '%1%'",conn
'对站内以ID的模糊搜索
rs.PageSize=10
'返回当前页
page=CLng(request("page"))
if page < 1 then page=1
if page > rs.pagecount then page=rs.pagecount
%>
<table border="0">

<tr><td>xh</td>
<%for i=0 to rs.fields.count-1
response.write"<td>"&rs.fields(i).name&"</td>"
next
%>
</tr>
<%
'设置当前页
rs.absolutepage=page
'显示当前页
for ipage = 1 to rs.pagesize
recno = (page - 1) * rs.pagesize + ipage
%>
<tr><td><%=recno%></td><%for i=0 to rs.fields.count-1%>
<td><%=rs.fields(i).value%></td><%Next%>
</tr><%rs.movenext'如果已经到达末尾,则提前跳出循环
if rs.eof then exit for
next
%>
</table>
<p align="center">
<%
'显示第一页,上一页,下一页,最后一页信息几创建有效连接
if page<>1 then
response.write"<a href=Untitled-1.asp?page=1>第一页</a>  "
response.write"<a href=Untitled-1.asp?page="&(page-1)&">上一页</a>  "
end if
if page<>rs.pagecount then
response.write"<a href=Untitled-1.asp?page="&(page+1)&">下一页</a>  "
response.write"<a href=Untitled-1.asp?page="&rs.pagecount&">最后一页</a>"
end if
%>
</p><p align="center">页数:<%=page%>/<%=rs.pagecount%></p>
<%
rs.close
conn.close
set rs=nothing
set conn=nothing
%>
</body>
</html>


库名:AA
表名:B
字段:ID,2,3,4,5
挂ACCESS库
ASP页面名Untitled-1.asp