写了一段代码，运行时老出现问题，不知为什么？

代码如下：

1、数据库链接：
<!--#include file="conn.asp"-->
conn.asp的代码是：
<%
set conn=server.createobject("adodb.connection")
conn.open "dsn=lJ"
//response.write "成功"
%>
2、声明变量：
<%
const MaxPerPage=20
dim totalPut
dim CurrentPage
dim TotalPages
dim i,j

dim typename
dim keyword

keyword=trim(request("keyword"))

typename=request.Querystring("typename")

if not isempty(request("page")) then
currentPage=cint(request("page"))
else
currentPage=1
end if

%>

3、java程序
<script>
<!--
function openwin(id){ window.open("viewarticle.asp?id="+id,"","height=450,width=550,resizable=yes,scrollbars=yes,status=no,toolbar=no,menubar=no,location=no");
}
//-->
</script>
4、
if typename="" then
sql="select * from learning where title like '%"&keyword&"%' order by articleid asc"
else
sql="select * from learning where type='"&typename&"' and title like '%"&keyword&"%' order by articleid asc"
end if
dim sql,rs

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


5、最后
rs.close
set rs=nothing
conn.close
set conn=nothing

现在的问题是运行后出 ：错误类型：
Microsoft OLE DB Provider for ODBC Drivers (0x80040E21)
ODBC 驱动程序不支持所需的属性。
/feishui/INC/cxindex.asp, 第 209 行

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

第 209 行的代码是：rs.open sql,conn,1,1

试了，不管用。
SQL是
if typename="" then
sql="select * from learning where title like '%"&keyword&"%' order by articleid asc"
else
sql="select * from learning where type='"&typename&"' and title like '%"&keyword&"%' order by articleid asc"
end if
dim sql,rs

要不我把整个文件传给你，您帮我看一下，可以吗？

dsn=lJ是数据库链接名，
我也
Set rs= Server.CreateObject("ADODB.Recordset")
response.write sql 这样试了，可还是出现
Microsoft OLE DB Provider for ODBC Drivers (0x80040E21)
ODBC 驱动程序不支持所需的属性。
/feishui/INC/cxindex.asp, 第 209 行
这个错误！

就是210行

上午的问题解决了，是个很低级的错，我弄错了数据表里的列名称与代码里的列名称错了一个字，真是把你麻烦了，在这感谢您的热心帮助！我是个初学者，又是个英语盲，现在从cxindex.asp到viewarticle.asp时还是同样的错，为了不再出现上午那样的错我从头到尾都核实了一遍，再没发现类似的问题，所以只好把源代码给你，看看那错了。

cxindex.asp里的相关代码是：
<script>
<!--
function openwin(id) { window.open("viewarticle.asp?id="+id,"","height=450,width=550,resizable=yes,scrollbars=yes,status=no,toolbar=no,menubar=no,location=no");
}
//-->
</script>
中间不相关的省略了
…………
<a href="javascript:openwin(<%=rs("articleid")%>)" title="<%=rs("title")%>"><%=rs("title")%></a>


viewarticle.asp的相关代码是：
<!--#include file="conn.asp"-->
<%
dim sql
dim rs
dim typename
dim articleid

typename=request("typename")
articleid=request("articleid")
Set rs= Server.CreateObject("ADODB.Recordset")
sql="update learning set hist=hist+1 where articleid="&articleid
rs.open sql,conn,1,1
sql="select * from learning where articleid="&request("articleid")
rs.open sql,conn,1,1
%>
错误提示还是：
Microsoft OLE DB Provider for ODBC Drivers (0x80040E21)
ODBC 驱动程序不支持所需的属性。
/feishui/INC/viewarticle.asp, 第 15 行
第 15 行是：rs.open sql,conn,1,1

我是蒙古族，对汉语也没什么研究，上午对“渔”和“鱼”的概念问同事后才明白的，呵呵。

response.write sql 样试了，就出来空表格，
本身这rs.open sql,conn,1,1行是没有错的

我怀疑下面的代码有问题
sql="update learning set hist=hist+1 where articleid="&articleid

sql="select * from learning where articleid="&request("articleid")

出来了这个：update learning set hist=hist+1 where articleid=