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

代码如下：

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

建议在rs.open sql,conn,1,1这一句之前加一句:
response.write sql
看看你的SQL值是什么

试了，不管用。
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

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

1、数据库链接：
<!--#include file="conn.asp"-->
conn.asp的代码是：
<%
set conn=server.createobject("adodb.connection")
conn.open "dsn=lJ"
//response.write "成功"
%>

conn.open打开的什么？？？dsn=lJ这个是什么？

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")
response.write sql '我的意思是你在这儿插入这一句,这样运行时在报错的时候它会显示你的sql值,我怀疑你的SQL值有问题.我在给你渔,不想给你鱼
rs.open sql,conn,1,1

哈哈,不要说,还真的没看到楼上说的呢.哈哈

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 行
这个错误！

Microsoft OLE DB Provider for ODBC Drivers (0x80040E21)
ODBC 驱动程序不支持所需的属性。
/feishui/INC/cxindex.asp, 第 209 行
在这个内容这前的内容看到没有啊?
还有dsn=lJ是数据库链接名，
这个写法好象有问题吧?

再者,如果你加了一行了这个错误的报法也不对了,因为应该是210行才对,不然,你根本就没有加.