home *** CD-ROM | disk | FTP | other *** search
/ Chip 1998 March / CHIPCD_3_98.iso / software / testsoft / exchange / webdata / usa / inbox / messages.asp < prev    next >
Text File  |  1997-08-25  |  2KB  |  77 lines
  1. <!--#include file="../constant.inc"-->
  2. <!--#include file="../lib/session.inc"-->
  3. <% SendHeader 1, 1 %>
  4. <!--#include file="../lib/getrend.inc"-->
  5. <!--#include file="../lib/pageutil.inc"-->
  6. <%
  7. '<!--Microsoft Outlook Web Access-->
  8. '<!--messages.asp : Frame that lists messages for current folder in chunks-->
  9. '<!--Copyright (c) Microsoft Corporation 1993-1997. All rights reserved.-->
  10.  
  11. On Error Resume Next
  12.  
  13. urlStore = Request.QueryString("store")
  14. urlObj = Request.QueryString("obj")
  15. if urlStore="" then iStore = 1 else iStore = cint(urlStore)
  16.  
  17. If Not CheckSession3("1","newwindow",urlStore) Then 
  18.     fTimedOut  = true
  19. Else
  20.     fTimedOut  = false
  21.  
  22.     If urlObj <> "" then
  23.         Set objRenderer = GetMessagesRenderer(fNew)
  24.         CheckPage objRenderer
  25.         If Err.Number <> 0 Then
  26.             ReportError1 L_errPage_ErrorMessage + " " + err.Number    
  27.         Else
  28.             cMessages = Session(CURRENT_COUNT)
  29.             iPage = Session(CURRENT_PAGE)
  30.         End If
  31.     End If
  32.  
  33. End If 'fTimedOut
  34. %>
  35. <!DOCTYPE HTML PUBLIC "-//IETF//DTD HTML 3.2//EN">
  36. <HTML>
  37. <HEAD>
  38.  
  39. </HEAD>
  40. <SCRIPT LANGUAGE="Javascript">
  41. <% If fTimedOut Then %>
  42. function refreshMe() {
  43.     parent.command_fr.location="<%=bstrVirtRoot%>/inbox/commands.asp?command=newfolder&obj="+parent.szCurFolderID+"&store="+parent.iCurStore;
  44. }
  45.     </Script>
  46.     <body>
  47.     <form>
  48.     Session timed out. Press <input type=button value="Refresh" onClick="refreshMe()"> after logging back on.
  49.     </form>
  50.     </body>
  51.     </html>
  52. <% Else %>
  53.     
  54. </SCRIPT>
  55.  
  56.  
  57.  
  58. <BODY TEXT=000000 BGCOLOR=FFFFFF LINK=000000 ALINK=000000 VLINK=000000 TOPMARGIN=0 LEFTMARGIN=3 onLoad="parent.updateStatus('<%=cMessages%>')" onUnload="clearTimeout(parent.mailboxTimerID)">
  59. <FORM name="deleteform" ACTION="commands.asp?action=deletemarkedmessages" METHOD="POST" target="command_fr">
  60. <%
  61. If urlObj <> "" then 
  62.     objRenderer.Render AMHTML_FolderContents, iPage, 0, Response
  63.     errNo = Err.Number
  64.     If errNo <> 0 Then
  65.         If errNo=70 Then 'no permissions
  66.             Response.Write L_errNoViewFolderPermissions_ErrorMessage
  67.         Else
  68.             Response.Write L_errRenderView_ErrorMessage    
  69.         End If
  70.     End If
  71. End If
  72. %>
  73. <INPUT TYPE=HIDDEN NAME=INVISIBLE VALUE=0>
  74. </FORM>
  75. </BODY>
  76. </HTML>
  77. <% End If 'fTimedOut%>