% @ LANGUAGE=VBSCRIPT CODEPAGE = 1252 %>
<%
'
'
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
L_RptLabelWidth_Number=10 'Left column label width
%>
<% If objOneMsg.ID="" Then
ReportErrorClose L_errMessageDeleted_ErrorMessage
Else
Set objRenderMsg = GetMessageRenderer
objRenderMsg.DataSource = objOneMsg
%>
>
% >
<%=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_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 %>
|