赛尔号关羽极限血量:ASP 调试问题求助!

我这个程序传到外网服务器上可以运行,但是传到内网服务器上就出现提示

Microsoft VBScript 编译器错误 错误 '800a03f6'

缺少 'End'

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

ADODB.Recordset 错误 '800a0e7d'

ADODB.Recordset 错误 '800a0e7d'

在一个已关闭的或无效连接的对象参照上操作不被允许。

/ty/index.asp，行20

---------------源代码

<!--#include file = "Inc/DBClass.inc.asp"-->

<%
Dim s_keyword, s_cataid, s_RootID
s_keyword = GetSafeStr(Trim(Request("keyword")))
s_cataid = GetSafeStr(Trim(Request("cataid")))

'当然更改为其他跟栏目的时候，只需要适当的更改下面的值，就可以实现不同栏目。
s_RootID = "A"

If s_cataid = "" Then
s_cataid = s_RootID
End If

'检测当前类别类别的合法性，其实我感觉检测与否对系统影响不大

Dim bRs, bSql
Set bRs = Server.CreateObject( "ADODB.Recordset" )
bSql = "SELECT * FROM NewsCata Where C_RootID = '"&s_cataid&"'"
bRs.Open bSql, oConn, 0, 1
If bRs.Eof Then
GoError "请通过页面上的链接进行操作，不要试图进行任何非法操作。"
End If
bRs.Close
Set bRs = Nothing

Dim Pmcount,Pageno
'//设置新闻显示数量
Pmcount = News_Front_Count
%>

------------------------------------------------

是代码出了问题,还是服务器上设置的问题.怎么解决..请高手帮助