求高手赐教

[q8866909]

Function ShowBBS()
Dim arr_Rs,i,P,ubb,Grade,ToUrl,Temp,Temp1
Dim S,Template,TempStr,Lou,Fontsize,ShowCaption,ShowMood,AppraiseInfo
ToUrl="BoardID="&BBS.BoardID&"&ID="&ID&"&TB="&BBS.TB
Set ubb=New dim BBSubb_Cls
Set P = New Cls_PageView
p.strTableName = "[Bbs"&BBS.TB&"] As B inner join [User] As U on B.Name=U.Name"
p.strPageUrl = "?"&ToUrl
' 0 1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35
p.strFieldsList =
上面是我的代码..
我访问自己的论坛帖子就出现以下这个
Microsoft VBScript 运行时错误 '800a01f4'

变量未定义: 'BBSubb_Cls'

\show.asp, line 138

[ACMAIN_CHM]

\show.asp, line 138

是哪一行？