<% ' ' On Error Resume Next CheckSession2 bstrVirtRoot + "/forms/report/ipnrn/frmroot.asp?timedout=1" '''do own checkindex (avoid pageutil (15k)) strIndex = Request.QueryString("index") If Len(strIndex) > 0 Then iIndex = CInt(strIndex) Session(CURRENT_INDEX) = iIndex End If urlcommand = Request.QueryString("command") url = Request.QueryString() bstrObj = Request.QueryString("obj") Set objRenderer = GetObjectRenderer bstrError = "" fHasAttach=false If Request.QueryString("timedout") <> "" Then bstrError = "" + L_Error_ErrorMessage + "

" _ + L_errFailOpenMessage_ErrorMessage + "
" _ + L_errMessageTimedOut2_ErrorMessage Else 'Get the message from the cache Set objOneMsg = Session(bstrObj) If objOneMsg Is Nothing Then 'If the message was not in the cache then try and get it from the database Set objOneMsg = OpenMessage(bstrObj) If objOneMsg.ID = "" Then If Request.QueryString("timedout")<>"" Then 'session timedout - lost message bstrError = "" + L_Error_ErrorMessage + "

" _ + L_errFailOpenMessage_ErrorMessage + "
" _ + L_errMessageTimedOut_ErrorMessage Else bstrError = "" + L_Error_ErrorMessage + "

" _ + L_errFailOpenMessage_ErrorMessage + "
" _ + L_errMessageDeleted_ErrorMessage End If Else Set Session(bstrObj) = objOneMsg AddIDToCache(bstrObj) End If End If End If bcMsgBdy = "#c0c0c0" 'gray bcMsgHdr = "#a0a0a0" bcToolbar = "#707070" fcToolbar = "#cccc99" CheckSession bAuthenticated = Session(bstrAuthenticated) 'validate underlying message structure Set objMessages = Session(CURRENT_CONTENTS) If objMessages Is Nothing Or Err.Number <> 0 Then fHaveContent = False Else fHaveContent = True %> <% If objOneMsg.ID="" Then ReportErrorClose L_errMessageDeleted_ErrorMessage Else Set objRenderMsg = GetMessageRenderer objRenderMsg.DataSource = objOneMsg %> TOPMARGIN=4 LEFTMARGIN=4 text=000000 link=000000 vlink=000000 alink=000000>

CELLSPACING=0 CELLPADDING=0 WIDTH="100%">

<% If fHaveContent Then 'validate underlying message structure %> <% If bAuthenticated Then 'Anon can't reply/fwd (no inbox) %> <% End If %> <% End If %>

>

<%=L_From_StaticText%>	<% AddrType = objOneMsg.Fields(ActMsgPR_SENT_REPRESENTING_ADDRTYPE) Address = objOneMsg.Fields(ActMsgPR_SENT_REPRESENTING_EMAIL_ADDRESS) objRenderMsg.RenderProperty ActMsgPR_SENT_REPRESENTING_NAME, 0, Response %> <% If AddrType <> "" And AddrType <> "EX" And Address <> "" Then %> [<% objRenderMsg.RenderProperty ActMsgPR_SENT_REPRESENTING_ADDRTYPE, 0, Response %>:<% objRenderMsg.RenderProperty ActMsgPR_SENT_REPRESENTING_EMAIL_ADDRESS, 0, Response %>] <% End If %>
<%=L_TO_StaticText%>	<% objRenderMsg.RenderProperty ActMsgPR_DISPLAY_TO, 0, Response %>
<%=L_CC_StaticText%>	<% objRenderMsg.RenderProperty ActMsgPR_DISPLAY_CC, 0, Response %>

width=100% valign=baseline>

<%=L_Subject_StaticText%>	<% objRenderMsg.RenderProperty ActMsgPR_SUBJECT, 0, Response %>
<%=L_Sent_StaticText%>	<% objRenderMsg.RenderProperty ActMsgPR_CLIENT_SUBMIT_TIME, 0, Response %>	<%=L_Importance_StaticText%>	<% objRenderMsg.RenderProperty ActMsgPR_IMPORTANCE, 0, Response %>

<% strMsgData = L_YourMessage_Text & vbCrLf & vbCrLf strMsgData= strMsgData & L_TO_StaticText If objOneMsg.Fields.Item(ActMsgPR_ORIGINAL_DISPLAY_TO) <> "" then strMsgData = strMsgData & " " & objOneMsg.Fields.Item(ActMsgPR_ORIGINAL_DISPLAY_TO) End If strMsgData=strMsgData & vbCrLf If objOneMsg.Fields.Item(ActMsgPR_ORIGINAL_DISPLAY_CC) Is Nothing then Else strMsgData= strMsgData & L_CC_StaticText strMsgData = strMsgData & " " & objOneMsg.Fields.Item(ActMsgPR_ORIGINAL_DISPLAY_CC) strMsgData=strMsgData & vbCrLf End If If objOneMsg.Fields.Item(ActMsgPR_ORIGINAL_DISPLAY_BCC) Is Nothing then Else strMsgData= strMsgData & L_BCC_StaticText strMsgData = strMsgData & " " & objOneMsg.Fields.Item(ActMsgPR_ORIGINAL_DISPLAY_BCC) strMsgData=strMsgData & vbCrLf End If strMsgData=strMsgData & L_Subject_StaticText If objOneMsg.Fields.Item(ActMsgPR_ORIGINAL_SUBJECT) <> "" Then strMsgData = strMsgData & " " & objOneMsg.Fields.Item(ActMsgPR_ORIGINAL_SUBJECT) End If strMsgData=strMsgData & vbCrLf strMsgData=strMsgData & L_Sent_StaticText & " " & objOneMsg.Fields.Item(ActMsgPR_ORIGINAL_SUBMIT_TIME) & vbCrLf & vbCrLf strMsgData = strMsgData & " " & L_IPNRNread_Text & " " & objOneMsg.Fields.Item(ActMsgPR_CREATION_TIME) objOneMsg.Text=strMsgData 'Do all the things that we would normally do at the end to prevent two calls to 'msg.update. We have to call update() here because message does not have any text 'body yet. In order to call RenderProperty, we must call Update to give our 'message a body!!! If bAuthenticated Then objOneMsg.Unread = False End If objOneMsg.Update Err.Clear objRenderMsg.RenderProperty ActMsgPR_RTF_COMPRESSED, 0, Response Set Session(bstrObj) = Nothing %>

<%End If%>