home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Chip 1998 March
/
CHIPCD_3_98.iso
/
software
/
testsoft
/
exchange
/
webdata
/
usa
/
item.asp
< prev
next >
Wrap
Text File
|
1997-08-25
|
1KB
|
59 lines
<!--#include file="constant.inc"-->
<!--#include file="lib/session.inc"-->
<!--#include file="lib/getrend.inc"-->
<%
'<!-- Microsoft Outlook Web Access-->
'<!-- Item.asp : This file processes next/prev requests. -->
'<!-- Copyright (c) Microsoft Corporation 1993-1997. All rights reserved.-->
On Error Resume Next
CheckSession
bstrAction = Request.QueryString("action")
nItem = Session(CURRENT_INDEX)
Set objMessages = Session(CURRENT_CONTENTS)
If objMessages Is Nothing Or Err.Number <> 0 Then
ReportError1 L_errCannotGetMessageObj_ErrorMessage
End If
Do
If bstrAction = "next" Then
nItem = nItem + 1
Else
nItem = nItem - 1
End If
Set objOneMsg = objMessages.Item(nItem+1)
If objOneMsg Is Nothing or Err.Number <> 0 Then
Err.Clear ' Cleanup the error
ReportErrorClose L_errNoMoreMessages_ErrorMessage
End If
If TypeName(objOneMsg)<>"GroupHeader" Then
nLen = Len(objOneMsg.ID)
If nLen > 0 Then
Exit Do
End If
End If
Loop
Session(CURRENT_INDEX) = nItem
Set objRender = GetMessageRenderer
objRender.DataSource = objOneMsg
bstrLink = objRender.RenderLink
If Err.Number <> 0 then
ReportErrorClose L_errRenderLink_ErrorMessage
Else
Set Session(CURRENT_MSG) = objOneMsg
Response.Redirect(bstrLink)
End If
%>