草遛社区如何下载种子:ADODB.Connection (0x800A0E79)

<table width="245" border="0" cellpadding="0" cellspacing="0" bordercolor="#CCCCCC">
<%
SqlLocalName ="(local)" '连接IP [ 本地用 (local) 外地用IP ]
SqlUsername ="sa" '用户名
SqlPassword ="sa" '用户密码
SqlDatabaseName="friend" '数据库名
ConnStr = "Provider=Sqloledb;User ID=" & SqlUsername & "; Password=" & SqlPassword & "; Initial Catalog = " & SqlDatabaseName & "; Data Source=" & SqlLocalName & ";"
conn.Open connstr
%>

<%
Set rs20=Server.CreateObject("Adodb.Recordset")
sql="select top 3 * from love_article where kind='成功故事' and flag='1' order by ifjh desc,addtime desc"

rs20.open sql,conn,1,1
do while not rs20.eof

%>
<tr>
<td height="10" background="main/img/middle5.gif"><a href=friend/dis_article.asp?classid=<%=rs20("id")%> target="_blank" title="<%=rs20("title")%>"><strong><font color="#FF0000" ></font></strong><%=left(rs20("title"),14)%> </a></td>
</tr>
<%
rs20.movenext
loop
%>
<%
rs20.close
%>
<%
conn.close
%>

<tr>
<td height="2" background="main/img/bottom5.gif"></td>
</tr>
</table>

我在前面也有一个相同的文件是这样写的，可以使用但是为什么这个文件就是不可以用？请给位大哥指点指点！！！
小弟先谢谢了
前面的文件只有
sql="select top 3 * from love_article where kind='成功故事' and flag='1' order by ifjh desc,addtime desc"
中的 “成功故事”不同，其他都是一样的