我的电脑上运行简单的ASP程序，关联到了数据库就会报错，
Server 对象 错误 'ASP 0177 : 800401f3'
Server.CreateObject 失败
/asp/Dispbbs.asp，行 8
无效的类别字符串
代码是：
<html>
<head><title>dispbbs.asp</title></head>
<body background="/hosp/images/backgrnd.gif">
<CENTER><IMG SRC="/hosp/images/luntan.gif" BORDER=0></CENTER><P>
<CENTER><A HREF="/hosp/login.htm"><IMG SRC="/hosp/images/zhuce.gif" BORDER=0></A>
<A HREF="/hosp/bbs_add.htm"><IMG SRC="/hosp/images/jiatz.gif" BORDER=0></A>
<A HREF="/hosp/default.htm"><IMG SRC="/hosp/images/return.gif" BORDER=0></A></CENTER><P>
<% Set Connection=Server.CreateObject("ADODB.Connection")
Connection.Open "bbs"
Set RS=Connection.Execute("SELECt * FROM bbs WHERe ID=answernum ORDER BY ID DESC")
Set Conn=Server.CreateObject("ADODB.Connection")
Conn.Open "bbs"
Set RSNEXT=Conn.Execute("SELECt * FROM bbs")
Do While not RS.EOF %>
<% =RS(0) %> <a href="/hosp/asp/detail.asp?ID=<% =RS(0) %>"><% =RS(2) %></a> -<FONT SIZE="4"><B><% =RS(1) %></B></FONT> <%
=RS(4) &" " %><% =RS(7) %>(<% =RS(5) %>)<P>
<% Set RSNEXT=Conn.Execute("SELECt * FROM bbs WHERe topnum<>ID AND opnum='" &RS(0)& "' ORDER BY ID ASC")
Do While Not RSNEXT.EOF %>
<% =RSNEXT(0) %> <a href="/hosp/asp/detail.asp?ID=<% =RSNEXT(0) %>">Re<% RSNEXT(6) %>:<% =RSNEXT(2) %></a>
-<FONT SIZE="4"><B><% =RSNEXT(1) %></B></FONT> <% =RSNEXT(4) &" " %><% =RSNEXT(7) %>(<% =RSNEXT(5) %>)<P>
<% RSNEXT.MoveNext
Loop
RS.MoveNext
Loop
RSNEXT.Close
Conn.Close
RS.Close
Connection.Close %>
</body>
</html>
我已经在网站上搜索过了，可是还是解决不了，请大家帮忙看看，谢谢！