home *** CD-ROM | disk | FTP | other *** search
/ Chip 1998 March / CHIPCD_3_98.iso / software / testsoft / exchange / webdata / usa / item.asp < prev    next >
Text File  |  1997-08-25  |  1KB  |  59 lines
  1. <!--#include file="constant.inc"-->
  2. <!--#include file="lib/session.inc"-->
  3. <!--#include file="lib/getrend.inc"-->
  4. <%
  5. '<!-- Microsoft Outlook Web Access-->
  6. '<!-- Item.asp : This file processes next/prev requests. -->
  7. '<!-- Copyright (c) Microsoft Corporation 1993-1997. All rights reserved.-->
  8.  
  9. On Error Resume Next
  10.  
  11. CheckSession
  12.  
  13. bstrAction = Request.QueryString("action")
  14. nItem = Session(CURRENT_INDEX)
  15.  
  16. Set objMessages = Session(CURRENT_CONTENTS)
  17. If objMessages Is Nothing Or Err.Number <> 0 Then
  18.     ReportError1 L_errCannotGetMessageObj_ErrorMessage 
  19. End If
  20.  
  21. Do
  22.     If bstrAction = "next" Then
  23.         nItem = nItem + 1
  24.     Else
  25.         nItem = nItem - 1
  26.     End If
  27.     
  28.     Set objOneMsg = objMessages.Item(nItem+1)
  29.     If objOneMsg Is Nothing or Err.Number <> 0 Then
  30.       Err.Clear     ' Cleanup the error
  31.             ReportErrorClose L_errNoMoreMessages_ErrorMessage
  32.     End If
  33.  
  34.     If TypeName(objOneMsg)<>"GroupHeader" Then
  35.  
  36.         nLen = Len(objOneMsg.ID)
  37.         If nLen > 0 Then
  38.             Exit Do
  39.         End If
  40.     End If
  41. Loop
  42.  
  43. Session(CURRENT_INDEX) = nItem
  44.  
  45. Set objRender = GetMessageRenderer
  46.  
  47. objRender.DataSource = objOneMsg
  48.  
  49. bstrLink = objRender.RenderLink
  50.  
  51. If Err.Number <> 0 then
  52.     ReportErrorClose L_errRenderLink_ErrorMessage
  53. Else
  54.     Set Session(CURRENT_MSG) = objOneMsg
  55.  
  56.     Response.Redirect(bstrLink)
  57. End If
  58. %>
  59.