帮忙看看这个程序哪里有错误,提示是Microsoft VBScript 编译器错误 (0x800A0408) --> sql语句错误

[lisa_cxm]

本人刚开始学习asp,看到一个搜索页面的处理程序,非常简单.试了一下不可以,请教一下.提示是
set rs=Server.CreateObject("ADODB.RecordSet") 这行有错误,我怎么也想不通.

<!--#include file="articleconn.asp"-->
<%
if request.form("key")="" then
response.redirect "index.asp"
end if
select case request.form("select")
case "search_1"
　　set rs=Server.CreateObject("ADODB.RecordSet")
　　sql="select * from data where instr(news_title,'"&request.form("key")&"')>0"
　　sql=sql+" Order by news_id Desc,news_class ASC"
　　rs.open sql,conn,3,2
case "search_2"
　　set rs=Server.CreateObject("ADODB.RecordSet")
　　sql="select * from data where instr(news_comment,'"&request.form("key")&"')>0"
　　sql=sql+" Order by news_id Desc,news_class ASC"
　　rs.open sql,conn,3,2
end select
if rs.bof then
response.redirect "index.asp"
response.end
end if
rs.movefirst
dispmess="<table border=0 width=100% cellpadding=0 cellspacing=0 class=a9>"
disp=""
do while not rs.eof
if not rs.eof then
disp=disp&"<tr><td><a href=http://localhost/aspnet/admin/disp.asp?news_id="&rs("news_id")&" target=_blank>>>"&rs("news_title")&"<font size=1>("&rs("news_month")&"-"&rs("news_day")&")</font></a></td></tr></p>"
rs.movenext
end if
loop
dispmess=dispmess&disp
dispmess=dispmess&"</table>"
%>
<%=dispmess%>

[尚和空四]

set rs=Server.CreateObject("ADODB.RecordSet")
这行不会有错误,

看看conn是否有问题

还有你的数据库是否存在，对否

[tigerwen01]

可能不是你所说的的那句有错，查看一下articleconn.asp文件的连接数据库字符串是否可以连到数据库。

[HHH3000]

sql="select * from data where charindex('"&request.form("key")&"',news_title)<>0"

[lisa_cxm]

数据库连接文件肯定没有问题,因为别的添加新闻什么的文件都能正常运行.

[lisa_cxm]

按上面说的做了,还是有同样的问题.怎么回事呀

[vulcan]

select case request.form("select")
＝＝》

select case trim(request.form("select"))