ADODB.Recordset (0x800A0BB9) 参数类型不正确，或不在可以接受的范围之内，或与其他参数冲突。pu5/105_search/01_p002.asp, 第 87 行解决思路

ADODB.Recordset (0x800A0BB9) 参数类型不正确，或不在可以接受的范围之内，或与其他参数冲突。pu5/105_search/01_p002.asp, 第 87 行
代码如下：
<!--#include file="../05_data/inc/DataConn99.asp"-->
<%
session("a1")=Trim(request.Form("select1"))
session("a2")=Trim(request.Form("select2"))
session("a4")=Trim(request.Form("select4"))
session("a5")=Trim(request.Form("select5"))
session("a6")=Trim(request.Form("Luxury"))
session("a7")=Trim(request("action")) 
session("pricefrom")=Trim(request("pricefrom"))
session("priceto")=Trim(request("priceto"))


pricefrom=session("pricefrom")
priceto=session("priceto")
select1=session("a1")
select2=session("a2")
select3=session("a3")
select4=session("a4")
select5=session("a5")
Luxury=session("a6")
action=session("a7")

response.Write(""&select1&"")
response.Write(""&select2&"")
response.Write(""&pricefrom&"")
response.Write(""&priceto&"")
response.Write(""&select4&"")
response.Write(""&select5&"")
response.Write(""&Luxury&"")
if action="search" then

if pricefrom="select3" and priceto="select3" then
 if select1="select1" then
  if select2="select2" then
  if select4="select4" then
if select5="select5" then  
if Luxury="" then
str3="select * from table_105_01 order by id"
else
str3="select * from table_105_01 where d_001=true"
end if
else 
if Luxury="" then 
str3="select * from table_105_01 where a010='"&select5&"' order by id"
else
str3="select * from table_105_01 where a010='"&select5&"' and d_001=true order by id"
end if
end if
else
if select5="select5" then  
if Luxury="" then
str3="select * from table_105_01 where a009='"&select4&"' order by id"
else
str3="select * from table_105_01 where a009='"&select4&"' and d_001=true order by id"
end if
else
if Luxury="" then
str3="select * from table_105_01 where a009='"&select4&"'and a010='"&selset5&"'order by id"
else
str3="select * from table_105_01 where a009='"&select4&"'and a010='"&selset5&"' and d_001=true order by id"
end if
end if

 
end if
end if
end if
end if
end if

set rp=server.CreateObject("adodb.recordset")  
rp.open str3,conn,3,3
 
pagesetup=10'设定每页的显示数量
rp.pagesize=pagesetup
TotalPage=rp.pagecount '总页数
PageCount = cint(Request.QueryString("ToPage"))
if PageCount <1 then PageCount = 1
if PageCount > TotalPage then PageCount = TotalPage
if TotalPage>0 then rp.absolutepage=PageCount '跳转到指定页数
%>
老是 提示rp.open str3,conn,3,3
出现错误
请哪位高手指点指点

------解决方案--------------------

第一页显示正常

当你点击下一页时，虽说是提交给了本页，但是变量就都没了，需要进行传递







------解决方案--------------------
把分页的代码贴出来,应该是参数为空出错