魅族pro5换电池:求救啊 ASP问题。。。。。。。。。。

错误：ODBC 驱动程序不支持所需的属性。
代码：
<%
dim count
Nclassid=request("Nclassid")
set rs=server.createobject("adodb.recordset")
rs.open "select id,name,classid from type order by id DESC ",conn,1,1
%>
<%Dim ipagecount
Dim ipagecurrent
Dim strorderBy
Dim irecordsshown
if request.querystring("page")="" then
ipagecurrent=1
else
ipagecurrent=cint(request.querystring("page"))
end if
Set rs = Server.CreateObject("ADODB.Recordset")
rs.pagesize = 20
rs.cachesize = 20
rs.open sql,conn,1,1
ipagecount = rs.pagecount
If ipagecurrent > ipagecount Then ipagecurrent = ipagecount
If ipagecurrent < 1 Then ipagecurrent = 1
if ipagecount=0 then%>
<%else
rs.absolutepage = ipagecurrent
irecordsshown = 0
do while irecordsshown<20 and NOT rs.EOF
%>
<%for i=1 to 4%>
<%if not rs.eof then%>

<a href="display.asp?id=<%=rs("id")%>" target="_blank">

<img src="<%=rs("minipic")%>" border="0" border="0" width="200" height="200" onload="javascript:DrawImage(this);">

<%
irecordsshown = irecordsshown +1
rs.movenext
end if
next
%>

<%
loop
end if
rs.Close
set rs=nothing
%>