<% SendHeader 1, 1 %> <% ' ' ' On Error Resume Next urlStore = Request.QueryString("store") urlObj = Request.QueryString("obj") if urlStore="" then iStore = 1 else iStore = cint(urlStore) If Not CheckSession3("1","newwindow",urlStore) Then fTimedOut = true Else fTimedOut = false If urlObj <> "" then Set objRenderer = GetMessagesRenderer(fNew) CheckPage objRenderer If Err.Number <> 0 Then ReportError1 L_errPage_ErrorMessage + " " + err.Number Else cMessages = Session(CURRENT_COUNT) iPage = Session(CURRENT_PAGE) End If End If End If 'fTimedOut %>

Session timed out. Press after logging back on.

<% Else %>

<% If urlObj <> "" then objRenderer.Render AMHTML_FolderContents, iPage, 0, Response errNo = Err.Number If errNo <> 0 Then If errNo=70 Then 'no permissions Response.Write L_errNoViewFolderPermissions_ErrorMessage Else Response.Write L_errRenderView_ErrorMessage End If End If End If %>

<% End If 'fTimedOut%>