<%Response.Buffer=True%> <% SendHeader 0, 1 %> <% on error resume next L_Title_FRAME_Height_Number = 80 'adjusts height of title frame L_Folder_FRAME_Width_Number = 156 'adjusts width of folder frame urlStore = Request.QueryString("store") szObj = Request.QueryString("obj") urlMode = Request.QueryString("mode") urlAcs = Request.QueryString("acs") urlQuery = Request.QueryString() if urlMode="" then iMode=0 else iMode=cint(urlMode) if urlQuery<>"" then urlQuery = "?" + urlQuery end if x = CheckSession3(bstrVirtRoot + "/inbox/main_fr.asp" + urlQuery, "self", urlStore) bstrTitleFile = bstrVirtRoot+"/inbox/title.asp" iStore=0 If Not Session(bstrAuthenticated) Then Initpage 1 iStore = 1 bstrTitleFile = bstrVirtRoot+"/inbox/titlea.asp" fIsAnon=true ElseIf urlStore<>"" Then iStore=cint(urlStore) Initpage iStore fIsAnon=false end if bstrPath = bstrVirtRoot+"/inbox" iPage = Session(CURRENT_PAGE) Set objFolder = Session(CURRENT_FOLDER) If IsSpecialFolder(objFolder.ID) Then fIsSpecialFolder = true Else fIsSpecialFolder = false End If bstrFolderID = objFolder.ID bstrFolderType = objFolder.Fields.Item(ActMsgPR_CONTAINER_CLASS).Value If bstrFolderType = "IPF.Appointment" Then iStore=2 %> <%If iMode=0 Then %> <%ElseIf iMode=1 Then%> <%ElseIf iMode=2 Then%> <%ElseIf iMode=3 Then%> <%End If%>