ASP分页，带值传送，分页不好使，在线求解！

<%

keyword=request("keyword")
if keyword="" then

sql="select * from songxinqy"
set objrs=server.CreateObject("adodb.recordset")
objrs.open sql,conn,1,3%>
<table width="1000" border="0" align="center" cellpadding="0" cellspacing="0" bgcolor="#FFFFFF">
  <%
  if objrs.recordcount>0then
  objrs.pagesize=30
  page=clng(request.QueryString("page"))
  if page<1 then page=1
  if page>objrs.pagecount then page=objrs.pagecount
  objrs.absolutepage=page
  for i=1 to objrs.pagesize
  if objrs.eof then
  exit for
  else
  

  %>

.......................输出显示内容...............
 </tr>
  <%
  end if
  objrs.movenext
  next

  end if

  %>



一共
      <%response.Write(objrs.pagecount)%>
页 | 当前第<%=page%>页 | 共
<%response.Write(objrs.recordcount)%>
条记录&nbsp;  <span class="newslj">&nbsp;</span><a href="aacc.asp?page=1" class="admin_left">&nbsp;&nbsp;[第一页] </a>|<a href="aacc.asp?page=<%=(page-1)%>" class="admin_left">&nbsp;[上一页] </a>| <a href="aacc.asp?page=<%=(page+1)%>" class="admin_left">[下一页]</a> | <a href="aacc.asp?page=<%=objrs.pagecount%>" class="admin_left">[最后一页]</a>


上面的分页可以实现没错误，但是不传送值，搜索的关键词，点下一页，全部显示，

求分页，读取分页
<a href="sxso.asp?page=1&keyword=<%=request("keyword")%>" class="admin_left">[第一页] </a>
我用上面这个一行方法做，但是提示错误，


Microsoft JET Database Engine '80040e14'

WHERE 子句语法错误。

\aacc.asp, line 136



      strsql=Replace(strsql, "where or", "where")

      set objrs = server.createobject("adodb.recordset")

      objrs.open strsql, conn,1,3

这个就是136行，打开SQL,因为是多个关键词搜索，所以求解。。。分页带值传送