我在点击下一页时就出现错误!是怎么回事啊?
错误如下:错误类型：
ADODB.Recordset (0x800A0BB9)
参数类型不正确，或不在可以接受的范围之内，或与其他参数冲突。
/tiyie/jcxx/fun1.inc, 第 5 行
代码:<!--#include file="fun1.inc"-->

<%
path=Request.ServerVariables("PATH_INFO")
Response.write(Request.ServerVariables("PATH_INFO"))
Response.write(Request.QueryString("page"))
 if Request("tsel")<>""then
 tsel=Request("tsel")
 qname=Request("qname")
 jname=Request("sel")
 'session("tj")=tj
 'session("lname")=lname
 'session("jname")=jname
 end if
  if Request("tsel")="=" then
 sql="select*from tal_spinfo where spname='"&qname&"'"
 end if
 if Request("tsel")="like" then 
 sql="select*from tal_spinfo where spname like '%"&Request("qname")&"%'"
 end if
 if Request("tsel")="all" then
 sql="select*from tal_spinfo"
 end if
 set rs=dbs_con(sql,1)
 if not rs.eof then
  teml=rs.recordcount
  shum=2
  rs.pagesize=shum
  page=clng(Request("page"))
  if page<1 then page=1
  if page>rs.pagecount then page=rs.pagecount
  show rs,page
  sub show(rs,page)
  rs.absolutepage=page
  for i=1 to rs.pagesize
   %>
   <p>
  <table width="804" border="n" align="center" cellspacing="0">
    <tr>
      <td width="264" bgcolor="#CCCCCC">商品名称：<%=rs("spname")%></td>
      <td width="254" bgcolor="#CCCCCC">简称:<%=rs("jc")%></td>
      <td width="280" bgcolor="#CCCCCC">产地:<%=rs("cd")%></td>
    </tr>
    <tr>
      <td bgcolor="#CCCCCC">规格:<%=rs("gg")%></td>
      <td bgcolor="#CCCCCC">包装:<%=rs("bz")%></td>
      <td bgcolor="#CCCCCC">单位:<%=rs("dw")%></td>
    </tr>
    <tr>
      <td bgcolor="#CCCCCC">批号:<%=rs("ph")%></td>
      <td colspan="2" bgcolor="#CCCCCC">供应商全称:<%=rs("gysname")%></td>
    </tr>
    <tr>
      <td bgcolor="#CCCCCC">批准文号:<%=rs("pzwh")%></td>
      <td colspan="2" bgcolor="#CCCCCC">备注:<%=rs("memo")%></td>
    </tr>
  </table></p>
  <%rs.movenext
   if rs.eof then exit for
   next
   end sub
  end if
  %></td></tr></table>
  <form action="checkspindex.asp" method="post">
  <div align="center">
  <%if page<>1 then%>
  <font size="+2"><a href=<%=path%>?page=1>第一页</a>
  </font><a href=<%=path%>?page=<%=(page-1)%>>上一页</a>
  <%end if
  if page<>rs.pagecount then%>
  <a href=<%=path%>?page=<%=(page+1)%>>下一页</a>
  <a href=<%=path%>?page=<%=rs.pagecount%>>最后一页</a>
  <%end if%>
  <font color="#336699">
  <input type="text" name="page" size="3" />输入页次
  </font><font color=red><%=page%>/<%=rs.pagecount%></font>[<a href="spindex.asp">返回</a>]</div></form>

fun1.inc
代码:<%
Function dbs_con(sql,para)
set rs=server.CreateObject("ADODB.recordset")
conn="provider=sqloledb;Data source=WCC9-A251FB5923;initial catalog=tiyie;User ID=sa;password=;"
rs.open sql,conn,para,1
set dbs_con=rs
End Function
%>