中国铁建领导:请问这段代码为什么会出错。是动网论坛代码。

<% @language=vbscript codepage=936%>
<%
Option Explicit
Response.Buffer = True
Dim Startime
Dim SqlNowString,Dvbbs,template,MyBoardOnline
Dim Conn,Plus_Conn,Db,MyDbPath
Startime = Timer()
Const IsSqlDataBase = 0
MyDbPath = ""
If IsSqlDataBase = 1 Then
Const SqlDatabaseName = "dvbbs7"
Const SqlPassword = "dvbbs7"
Const SqlUsername = "dvbbs7"
Const SqlLocalName = "(local)"
SqlNowString = "GetDate()"
Else
Db = "data/dvbbs7.mdb"
SqlNowString = "Now()"
End If
Const IsDeBug = 1
Set Dvbbs = New Cls_Forum
Set template = New cls_templates
Sub ConnectionDatabase
Dim ConnStr
If IsSqlDataBase = 1 Then
ConnStr = "Provider = Sqloledb; User ID = " & SqlUsername & "; Password = " & SqlPassword & "; Initial Catalog = " & SqlDatabaseName & "; Data Source = " & SqlLocalName & ";"
Else
ConnStr = "Provider = Microsoft.Jet.OLEDB.4.0;Data Source = " & Server.MapPath(MyDbPath & db)
End If
On Error Resume Next
Set conn = Server.CreateObject("ADODB.Connection")
conn.open ConnStr
If Err Then
err.Clear
Set Conn = Nothing
Response.Write "数据库连接出错，请检查连接字串。" Response.End
End If
End Sub
Sub Plus_ConnectionDatabase
Dim ConnStr
If IsSqlDataBase = 1 Then
Dim SqlDatabaseName,SqlPassword,SqlUsername,SqlLocalName
SqlDatabaseName = "dvbbs7"
SqlPassword = "dvbbs"
SqlUsername = "dvbbs"
SqlLocalName = "(local)"
ConnStr = "Provider = Sqloledb; User ID = " & SqlUsername & "; Password = " & SqlPassword & "; Initial Catalog = " & SqlDatabaseName & "; Data Source = " & SqlLocalName & ";"
Else
Dim Db
Db = MyDbPath & "data/Dv_Plus_Tools.mdb"
ConnStr = "Provider = Microsoft.Jet.OLEDB.4.0;Data Source = " & Server.MapPath(db)
End If
On Error Resume Next
Set Plus_Conn = Server.CreateObject("ADODB.Connection")
Plus_Conn.open ConnStr
If Err Then
err.Clear
Set Plus_Conn = Nothing
Response.Write "插件数据库连接出错，请检查连接字串。" Response.End
End If
End Sub
%>
由于是做繁体网站。所以我要把<% @language=vbscript codepage=936%>改成<% @language=vbscript codepage=950%>但。改完后所链接CONN.asp的网页都会出现如下错误
Microsoft VBScript 执行阶段错误 (0x800A0009)
阵列索引超出范围: '[number: 1]'
/bbs4/inc/Dv_ClsMain.asp, line 660
就算删除<% @language=vbscript codepage=936%>也会出现以上错误信息，希望高手能解决。我把所有gb2312都换成了big5。网页数据库也转换过来了。