请问为什么不能实现翻页功能？请高手赐教

[ymeik]

点击“下一页”的时候，也面刷不开。
代码如下：
<%
dim using ,sel,name,no
sel=trim(request("select"))
name=trim(request("selname"))
using=Session("ThisUser") 'using 当前用户的真实姓名
'response.write using&"<br>"

Set ObjRs = server.CreateObject("ADODB.RecordSet")
if sel="按工程负责人" then
no=1
SqlUser="Select ID,ReportTime,ReportComp,State From ReportAndSolve Where Engineer like '%"&name&"%' Order by ReportTime desc"
elseif sel="按投诉单位" then
no=2
SqlUser="Select ID,ReportTime,ReportComp,State From ReportAndSolve Where ReportComp like '%"&name&"%' Order by ReportTime desc"
end if
ObjRs.open SqlUser,MyConn,3,3

if not ObjRs.eof then
ObjRs.pagesize=15
nextpage=request.form("nextpage")
if nextpage="" then
session("abspage")=1
else
if nextpage="上一页" then
session("abspage")=session("abspage")-1
elseif nextpage="下一页" then
session("abspage")=session("abspage")+1
end if
ObjRs.absolutepage=session("abspage")
end if
%>
<right>
<form action=repsearch2.asp method=post>
<%

if ObjRs.pagecount>1 then
if (session("abspage"))>1 then
%>
<input type=submit value=上一页 name=nextpage style="color: rgb(255,255,0); font-size: 9pt; background-color: rgb(0,128,128)">
<%
end if
if (session("abspage"))<ObjRs.pagecount then
%>
<input type=submit value=下一页 name=nextpage style="color: rgb(255,255,0); font-size: 9pt; background-color: rgb(0,128,128)">
<%
end if
end if

%>
<font color="#009933"> 这是第<%=session("abspage")%>页    共<%=ObjRs.pagecount%>页
</font>
<%
response.write"</tr>"
%>
<font color="#009933"> <%=ObjRs.recordcount%>条记录</font>
</form>

我觉得可能是sel的判断那部分引起翻页不成功，不知道对否，该如何解决呢？

[NetBoy]

你的nextpage()里面是不是漏掉了搜索条件，我以前经常因这种情况出错。

[possible_Y]

<form action=repsearch2.asp method=post>
后加上：
<input type="hidden" value="<%=trim(request("select"))%>" name="select">
<input type="hidden" value="<%=trim(request("selname"))%>" name="selname">

[ymeik]

我觉得是按了“下一页”的时候，sel已经没有值了，所以 程序会出错 但不知道怎么改
possible_Y(一切皆可能) 的建议不错，我来试试
谢谢

[ymeik]

还是没调出来
提交到自己的（此文件即为repsearch2.asp）
请问，提交后是从程序开始的地方开始执行的吗？

[ymeik]

好了 调出来了 谢谢