请高手帮忙解决下问题Microsoft VBScript 运行时错误 错误 '800a000d'

Microsoft VBScript 运行时错误 错误 '800a000d'

类型不匹配: 'Session(...)(...)'

/ltan/Inc/Main_Cls.asp，行 401
我把一个论坛源码上传到二级目录就出现这个问题，是不是要修改路径？请问有谁知道怎么修改啊？放在根目录就没这个问题了
下面是错误ASP错误源码段
Cache.Add "OnlineCache",OnlineCache,dateadd("h",1000,NowBBSTime)
                If Int(AllOnlineNum)>int(InfoUpdate(7)) then
                Dim S
                        Execute ("update [Config] Set MaxOnlineNum="&AllOnlineNum&",MaxOnlineTime='"&NowBbsTime&"'")
                        S=Replace(join(InfoUpdate,","),InfoUpdate(7)&","&InfoUpdate(8),AllOnlineNum&","&NowBbsTime)
                        Cache.Add "InfoUpdate",S,dateadd("n",2000,NowBBSTime)
                        InfoUpdate=Split(S,",")
                End If
               
                If FoundUser Then
                        If Instr(PageUrl,"sms.asp")>0 Then
                                If Temp(2)=1 Then UpdageOnline MyName,0
                        Else
                                If Int(Session(CacheName & "MyInfo")(27))>0 or Instr(MyOnline,MyName&"|1|")<>0 Then
                                        If Info(45)="1" Then
                                                Response.Write"<script language='JavaScript'>if(confirm('您的论坛信箱有新留言，是否要查看？')){window.location.href='sms.asp';}else{event.returnValue=false;};window.location.href='sms.asp';</SCRIPT>"
                                        Else
                                                Temp=Session(CacheName & "MyInfo")(27)
                                                If Temp=0 then Temp=1
                                                AddMenu=AddMenu&" <a href='sms.asp' target='_blank'><img border=0 src=Images/icon/newsms.gif align=absmiddle /><span style='color:#F00'>新留言（"&Temp&"条）</span></a><bgsound src='images/mail.wav' loop='1' />"