asp高手进来帮忙解答一下

<%
Dim pagesize,rs,sql,curpage,strcate,i
Dim id,ADID,ADViews,ADHits,ADType,ADSrc,ADLink,ADAlt,ADWidth,ADHeight,ADNote,ADStopViews,ADStopHits,ADStopDate

pagesize=10 '设置每页显示广告树目

If Request.QueryString("page")="" Then
   curpage = 1
Else
curpage = cint(Request.QueryString("page"))
End If

Set rs = Server.CreateObject("ADODB.Recordset")
if Request.QueryString("action")="stop" then
sql = "SELECT * FROM ad where ( ADStopViews <> 0 and ADViews > ADStopViews) or ( ADStopHits <> 0 and ADHits > ADStopHits) or ( DateDiff('d',Now(),ADStopDate)<1 ) ORDER BY id DESC"
Else
sql = "SELECT * FROM ad ORDER BY id DESC"
end If
rs.open sql, conn, 1,1
'监测是否存在错误
If err.number <> 0 Then
Response.Write "打开数据库出错,请检查conn.asp中数据库地址是否正确"
Response.End
End If

If rs.bof or rs.eof Then
rs.Close
if Request.QueryString("action")="stop" Then
%><br>
<table width="760" height="200" border="0" align="center" cellpadding="0" cellspacing="1" bgcolor="DDDDDD">
  <tr>
    <td align="center" bgcolor="f1f1f1"><font color="#990000">暂时没有过期广告！</font></td>
  </tr>
</table>
<br>

<%Else%><br>
<table width="760" height="200" border="0" align="center" cellpadding="0" cellspacing="1" bgcolor="DDDDDD">
  <tr>
    <td align="center" bgcolor="f1f1f1">暂时没有任何广告！-- <a href=add.asp>立即添加新广告</a></td>
  </tr>
</table>
<br>

<%
End If
Response.End
End If

rs.pagesize = pagesize
rs.absolutepage = curpage
%>
下面是调试时所报的错误信息技术信息（用于支持人员）

错误类型：
Microsoft OLE DB Provider for ODBC Drivers (0x80040E21)
ODBC 驱动程序不支持所需的属性。
/1/add/AD/list.asp, 第 50 行


浏览器类型：
Mozilla/4.0 (compatible; MSIE 6.0; Windows NT 5.1; SV1; TencentTraveler )

网页：
GET /1/add/AD/list.asp

时间：