南宁土鸡养殖场:请高手才看下这个asp程序里面的错误!!!

Microsoft VBScript 编译器错误 错误 '800a03f6'
缺少 'End'

/iisHelp/common/500-100.asp，行242

Microsoft OLE DB Provider for ODBC Drivers 错误 '80040e21'

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

/game/search.asp，行104

/game/search.asp，行104内容：rs.open sql,conn,1,1

<%else
set rs=server.CreateObject("ADODB.RecordSet")
if request("type")="info" then
KN=split(request("k")," ")
for i = 0 to ubound(KN)
KNN=KNN&" or title like '%"&KN(i)&"%' or info like '%"&KN(i)&"%'"
next%><!--#include file="admin/mdb_path_info.asp"--><%
sql="select * from info where title like '%"&request("k")&"%'"&KNN&" order by "&pl&" desc"
else
KN=split(request("k")," ")
for i = 0 to ubound(KN)
KNN=KNN&" or cxn like '%"&KN(i)&"%' or cxv like '%"&KN(i)&"%' or body like '%"&KN(i)&"%'"
next
%><!--#include file="admin/mdb_path_down.asp"--><%
sql="select * from down where (cxn like '%"&request("k")&"%'"&KNN&")"&skCD&" order by "&pl&" desc"
end if
rs.open sql,conn,1,1
if rs.eof then
%>
<tr>
<td width="100%" colspan="5"><p align="center"><a href="javascript:" onclick="window.open("http://www1.baidu.com/baidu?tn=site65658&cl=3&rn=10&ct=0&lm=0&submit4=搜索&word=<%=request("k")%>")"><img src="images/d_sorryNoSearch.gif" width="186" height="150" border="0"><br><b><font color="#FF0000">点击这里进行高级搜索.</font></a></b></td>
</tr>
<%else
if sePAGE<>"no" then '###排行方式时只显示指定数目
rs.pagesize=MaxPerPage '得到每页数
mpage=rs.pagecount '得到总页数
allshu=rs.recordcount
if request("page")<>"" then
if cint(request("page"))<1 or cint(request("page"))>mpage then
currentPage=1
else
currentPage=cint(request("page"))
end if
else
currentPage=1
end if
rs.move (currentPage-1)*MaxPerPage
end if '###排行方式时只显示指定数目
do while not rs.eof%>
<%'''文章
if request("type")="info" then
softname=rs("title")
if request("k")<>"" then
for i = 0 to ubound(KN)
softname=replace(softname,""&KN(i)&"","<font color=#FF0000>"&KN(i)&"</font>")
next
end if%>