asp高手们帮我看看那，我的数据库调用有问题，我真的不知到怎么办了
asp高手们帮我看看那，我的数据库调用有问题，我真的不知到怎么办了错误提示：
Microsoft OLE DB Provider for ODBC Drivers 错误 '80040e10'
[Microsoft][ODBC Microsoft Access Driver] 参数不足，期待是 3。
/shangjia_quyu.asp，行 70
部分shangjia_quyu.asp文件代码：
<!--#include file="conn.asp" -->
<!--#include file="setup.asp" -->
<HTML>
<HEAD>
<TITLE><%=trim(request("title"))%>-<%=biaoti%></TITLE>
<meta name="keywords" content="<%=keyword%>">
<meta name="description" content="<%=description%>">
<META http-equiv=Content-Type content="text/html; charset=gb2312">
<link rel="stylesheet" href="STYLE.CSS" type="text/css">
<script language="JavaScript">
<!--
function MM_jumpMenu(targ,selObj,restore){ //v3.0
eval(targ+".location='"+selObj.options[selObj.selectedIndex].value+"'");
if (restore) selObj.selectedIndex=0;
}
//-->
</script>
</head>
<BODY leftmargin="0" topmargin="0" marginwidth="0" marginheight="0">
<!--#include file="head.asp" -->
<div align="center">
<%
if trim(request("quyu"))<>"" and isnumeric(trim(request("quyu"))) then
quyu=trim(request("quyu"))
else
quyu=1
end if
Set rs=Server.CreateObject("ADODB.Recordset")
sql="select * from quyu where id="&quyu
rs.open sql,conn,1,3
if not rs.eof then
quyu_title=rs("title")
end if
rs.close
set rs=nothing
%>
<table width="850" border="0" align="center" cellpadding="0" cellspacing="0" bordercolor="#FFFFFF" bgcolor="#FFFFFF" class="tdbg">
<tr>
<td width="200" bgcolor="#CCCC66" valign="top">
<!--#include file="left.asp" -->
</td>
<td valign="top" align="center" width="3" bgcolor="#FF3333"></td>
<td valign="top" align="center">
<table width="100%" border="0" cellspacing="0" cellpadding="0">
<tr>
<td bgcolor="#FF3333" height="3"></td>
</tr>
<tr>
<td height="24" bgcolor="#FFCC33">
<table width="98%" border="0" cellspacing="2" cellpadding="2" align="center">
<tr>
<td>您的位置：<a href="index.asp">网站首页</a> <img height=9 src="images/dot07.gif" width=11> <%=quyu_title%></td>
</tr>
</table>
</td>
</tr>
</table>
<%
sql="select shangjiaid,title,diqu,fenwei,counter,add,exedate,tuijian,quyu from shangjia where user_leibie='shangjia' and title<>''"
if request("quyu")<>"" and isnumeric(trim(request("quyu"))) then
sql=sql&" and quyu="&cint(trim(request("quyu")))
end if
sql=sql&" order by counter desc,exedate desc"
Set rs = Server.CreateObject("ADODB.Recordset")
rs.open sql,conn,1,3
count=rs.RecordCount
if count>0 then
order=0
pagesize=shangjia
if count/pagesize=int(count/pagesize) then
pagecount=count/pagesize
else
pagecount=int(count/pagesize)+1
end if
page=request.QueryString("page")
if page="" then
page=1
end if
%>
