<% @ LANGUAGE=VBSCRIPT CODEPAGE = 1252 %> <% SendHeader 1, 1 %> <% ' ' ' On Error Resume Next bstrObj = Request.QueryString("obj") CheckSession2 bstrVirtRoot + "/forms/ipm/contact/frmroot.asp?obj="+bstrObj if Request.QueryString("new")="1" then fNew=true else fNew=false fHasAttach=false If bstrObj <> "" and fNew=false then 'open msg and get data Set objOneMsg = Session(bstrObj) Set objRenderMsg = GetMessageRenderer objRenderMsg.DataSource = objOneMsg bstrFolderID = objOneMsg.FolderID Set objFolder = OpenFolder(bstrFolderID) fHasAttach = objOneMsg.Fields.Item(ActMsgPR_HASATTACH) bstrConvTopic = objOneMsg.ConversationTopic bstrSubject = objOneMsg.Subject bstrMsgText = objOneMsg.Text Else Set objFolder = Session(CURRENT_FOLDER) bstrConvTopic = "" bstrSubject = "" bstrMsgText = "" End If bstrFolderName = objFolder.Name 'Table(pixels) to field width adjustments nTWfactor = Session("nTWfactor") nTAfactor = Session("nTAfactor") nRows = Session("nTARows") 'localized textbox width adjustments L_PostTileColumnWidthAdjUnix_Number = 0 ' adjust title column for UNIX L_PostTileColumnWidthAdjMac_Number = 0 ' adjust title column for Mac L_PostTileColumnWidthAdjustmentWin16_Number = 0 ' adjust title column for Win16 (i.e. Win3.1) L_PostTileColumnWidthAdjustmentWin32_Number = 0 ' adjust title column for Win32 (i.e. Win95 and NT) - default L_PostMsgBodyWidthAdjUnix_Number = 0 ' adjust message body for Unix L_PostMsgBodyWidthAdjMac_Number = 0 ' adjust message body for Mac L_PostMsgBodyWidthAdjustmentWin16_Number = 0 ' adjust message body for Win16 (i.e. Win3.1) L_PostMsgBodyWidthAdjustmentWin32_Number = 0 ' adjust message body for Win32 (i.e. Win95 and NT) - default L_NoteMsgCol1Width_Number = 80 ' adjustment for width of 1st column by lang If isUNIX Then titleColumnWidthAdj = L_PostTileColumnWidthAdjUnix_Number msgBodyWidthAdj = L_PostMsgBodyWidthAdjUnix_Number ElseIf isMac Then titleColumnWidthAdj = L_PostTileColumnWidthAdjMac_Number msgBodyWidthAdj = L_PostMsgBodyWidthAdjMac_Number ElseIf isWin16 Then titleColumnWidthAdj = L_PostTileColumnWidthAdjustmentWin16_Number msgBodyWidthAdj = L_PostMsgBodyWidthAdjustmentWin16_Number Else titleColumnWidthAdj = L_PostTileColumnWidthAdjustmentWin32_Number msgBodyWidthAdj = L_PostMsgBodyWidthAdjustmentWin32_Number End If iTablePixWidth = 620 + msgBodyWidthAdj iCol1PixWidth = titleColumnWidthAdj + L_NoteMsgCol1Width_Number iCol2PixWidth = (iTablePixWidth-iCol1PixWidth-160) / 2 iCol2InputWidth = cint((iCol2PixWidth * (nTWfactor)) + ((iCol2PixWidth-1000)\1000)) iTableTAWidth = cint((iTablePixWidth * nTAfactor) + ((iTablePixWidth-1000)\140)) L_EditYourEmailAddr_Text = "Edit the contact's e-mail address:" Set objRenderer = GetObjectRenderer %>
<% If L_DisplayYomiAndMiddleFields_Number <> 1 Then %> <% For NameOrder = L_LastNameFirst_Number To L_LastNameFirst_Number+1 %> <% If NameOrder MOD 2 = 0 Then %> <% Else %> <% End If %> <% Next %> <% If L_DisplayYomiAndMiddleFields_Number = 0 Then %> <% else %> <% end if %> <% Else %> <% For NameOrder = L_LastNameFirst_Number To L_LastNameFirst_Number+1 %> <% If NameOrder MOD 2 = 0 Then %> <% Else %> <% End If %> <% Next %> <% end if %>
><%=L_ContactFirstName_Text%> VALUE="<% objRenderMsg.RenderProperty ActMsgPR_GIVEN_NAME, 0, Response %>"> ><%=L_ContactLastName_Text%> VALUE="<% objRenderMsg.RenderProperty ActMsgPR_SURNAME, 0, Response %>">
><%=L_ContactMiddleName_Text%> VALUE="<% objRenderMsg.RenderProperty ActMsgPR_MIDDLE_NAME, 0, Response %>"> ><%=L_ContactJobTitle_Text%> VALUE="<% objRenderMsg.RenderProperty ActMsgPR_TITLE, 0, Response %>">
><%=L_ContactCompany_Text%> VALUE="<% objRenderMsg.RenderProperty ActMsgPR_COMPANY_NAME, 0, Response %>">
><%=L_ContactCompany_Text%> VALUE="<% objRenderMsg.RenderProperty ActMsgPR_COMPANY_NAME, 0, Response %>"> ><%=L_ContactJobTitle_Text%> VALUE="<% objRenderMsg.RenderProperty ActMsgPR_TITLE, 0, Response %>">
><%=L_ContactFirstName_Text%> VALUE="<% objRenderMsg.RenderProperty ActMsgPR_GIVEN_NAME, 0, Response %>"> ><% =L_ContactYomiFirstName_Text %> VALUE="<% objRenderMsg.RenderProperty AMPidTag_YomiFirstName, 0, Response %>">
><%=L_ContactLastName_Text%> VALUE="<% objRenderMsg.RenderProperty ActMsgPR_SURNAME, 0, Response %>"> ><% =L_ContactYomiLastName_Text %> VALUE="<% objRenderMsg.RenderProperty AMPidTag_YomiLastName, 0, Response %>">
><%=L_ContactCompany_Text%> VALUE="<% objRenderMsg.RenderProperty ActMsgPR_COMPANY_NAME, 0, Response %>"> ><% =L_ContactYomiCompany_Text %> VALUE="<% objRenderMsg.RenderProperty AMPidTag_YomiCompanyName, 0, Response %>">
><%=L_ContactJobTitle_Text%> VALUE="<% objRenderMsg.RenderProperty ActMsgPR_TITLE, 0, Response %>">

><%=L_ContactBusinessPhone_Text%> VALUE="<% objRenderMsg.RenderProperty ActMsgPR_BUSINESS_TELEPHONE_NUMBER, 0, Response %>"> ><%=L_ContactHomePhone_Text%> VALUE="<% objRenderMsg.RenderProperty ActMsgPR_HOME_TELEPHONE_NUMBER, 0, Response %>">
><%=L_ContactBusinessFax_Text%> VALUE="<% objRenderMsg.RenderProperty ActMsgPR_BUSINESS_FAX_NUMBER, 0, Response %>"> ><%=L_ContactMobilePhone_Text%> VALUE="<% objRenderMsg.RenderProperty ActMsgPR_MOBILE_TELEPHONE_NUMBER, 0, Response %>">
><%=L_ContactPager_Text%> VALUE="<% objRenderMsg.RenderProperty ActMsgPR_PAGER_TELEPHONE_NUMBER, 0, Response %>">

><%=L_ContactWebPage_Text%> VALUE="<% objRenderMsg.RenderProperty ActMsgPR_BUSINESS_HOME_PAGE, 0, Response %>"> ><%=L_ContactEmail_Text%> Edit e-mail address properties VALUE="<% objRenderMsg.RenderProperty AmPidTag_EmailOriginalDisplayName, 0, Response %>" onblur="changeemailaddr()">
>