Question

ASP代码执行出错，请高手解答

ASP代码执行出错：
Microsoft OLE DB Provider for ODBC Drivers 错误 '80040e21'

ODBC 驱动程序不支持所需的属性。

/sjxm/index_xm_no.asp，行 65
现将部分代码贴上，请高手解答：
<!--#include file="conn.asp"-->
<% const MaxPerPage=30
dim totalPut
dim CurrentPage
dim TotalPages
dim sql
dim rs

yeara=request.QueryString("yeara")
yearb=request.QueryString("yearb")
<%
sql="select xm_dw_id,xm_dw,xm_dw_lb,bz from xmdw where xm_dw not in (select xm_dw from sjxm where xm_year>="&year1&" and xm_year<="&year2&")"

Set rs= Server.CreateObject("ADODB.Recordset")
rs.open sql,conn,1,1

if rs.eof and rs.bof then
response.write " 没有单位信息"
else
Response.Write"<span style='font-size:9pt'>最新查询情况："&yeara&"年至"&yearb&"年，未开展项目的单位有"&rs.RecordCount&"个，见下表：</span>"
on error resume next
rs.PageSize = 30
Page = CLng(Request("Page"))
If Page < 1 Then Page = 1
If Page > rs.PageCount Then Page = rs.PageCount
rs.AbsolutePage = Page
i=page+(page-1)*9
For iPage = 1 To rs.PageSize
%>
<tr align="center">
<td height="30"> <div align="center"> <%=rs("xm_dw")%> </div></td>
</tr>
<%
rs.MoveNext
If rs.EOF Then Exit For
i=i+1
Next
%>
</table>
<%end if%>

conn.asp代码如下：
<%
'session.timeout=10'session对象的超时值
Set conn = Server.CreateObject("ADODB.Connection")
conn.Open "Driver={Microsoft Access Driver (*.mdb)}; DBQ=" & Server.MapPath("data/sjxm.mdb")
Set rs = Server.CreateObject("ADODB.Recordset")
%>
网页界面输入的值为什么不能传递给yeara、yearb呢

Answer 1

yeara=request.QueryString("yeara")

yearb=request.QueryString("yearb")

<%

sql="select xm_dw_id,xm_dw,xm_d...

这几行中间多了一个 <% ，把它删掉