home *** CD-ROM | disk | FTP | other *** search
/ Chip 1998 March / CHIPCD_3_98.iso / software / testsoft / exchange / webdata / usa / finduser / details.asp next >
Text File  |  1997-08-25  |  6KB  |  224 lines
  1. <!--#include file="../constant.inc" -->
  2. <!--#include file="../lib/session.inc" -->
  3. <!--#include file="../lib/getrend.inc" -->
  4.  
  5. <%
  6. '<!--Microsoft Outlook Web Access-->
  7. '<!--Find User details.asp : Displays account details. -->
  8. '<!--Copyright (c) Microsoft Corporation 1993-1997. All rights reserved.-->
  9.  
  10.     On Error Resume Next
  11.  
  12.     CheckSession
  13. bcGrayM = "#c0c0c0"
  14. bcGray = "#909090"
  15. bcGrayD = "#707070"
  16.  
  17.     set objRenderApp = Application( bstrRenderApp )
  18.  
  19.  
  20.     If objRenderApp.ConfigParameter("Publish GAL") = False And Session(bstrAuthenticated) = False Then
  21.         ReportErrorClose L_errPageDisabled_ErrorMessage
  22.     End If
  23.  
  24.     strAddrEntryID = Request.QueryString("obj")
  25.  
  26.     Set objAddrEntry = objOMSession.GetAddressEntry(strAddrEntryID)
  27.  
  28.     If Err.Number <> 0 or objAddrEntry Is Nothing Then
  29.         ReportErrorClose L_errOpeningAddressEntry_ErrorMessage
  30.     End If
  31.  
  32.     Set objRender = GetObjectRenderer
  33.  
  34.     objRender.DataSource = objAddrEntry
  35.     
  36. %>
  37. <!DOCTYPE HTML PUBLIC "-//IETF//DTD HTML 3.2//EN">
  38. <HTML>
  39. <HEAD>
  40. <TITLE>Detailed Information</TITLE>
  41. </HEAD>
  42.  
  43. <body  bgcolor=white text=black link=white vlink=white>
  44.  
  45. <font size=3><b>Details for: </font>
  46. <FONT SIZE=3><b>
  47. <% objRender.RenderProperty ActMsgPR_DISPLAY_NAME, 0, Response %>
  48. </b></font>
  49.  
  50. <!-- top bar -->
  51. <TABLE BORDER=0 CELLSPACING=0 CELLPADDING=0 WIDTH="100%" bgcolor=<%=bcGrayD%>>
  52.     <TR>
  53.         <TD align=right height="20" valign=center colspan=3 nowrap>
  54.         <a href="JavaScript:self.close()"><FONT <%=bstrFace%> SIZE=2><b>Close</b></font></a>
  55.         </TD>
  56.     </TR>
  57. </table>
  58.  
  59. <TABLE BORDER=0 CELLSPACING=0 CELLPADDING=6 WIDTH="100%" bgcolor=<%=bcGrayM%>>
  60.  
  61.     <tr>
  62.         <td width=25% valign=baseline align=right >
  63.         <font size=2 ><b>Name:</b></font></td>      
  64.  
  65.         <td width=25% valign=baseline colspan=3 >
  66.         <font size=2>
  67.         <%bstrName = objAddrEntry.Fields.Item(ActMsgPR_GIVEN_NAME)
  68.         bstrName = bstrName + " " + objAddrEntry.Fields.Item(ActMsgPR_SURNAME)%> 
  69.         <% objRender.Write bstrName, Response %>
  70.         </font> </td>
  71.     </tr>
  72.     <tr>
  73.         <td width=25% valign=baseline align=right width=25%>
  74.         <font size=2><b>Alias:</b></font></td>     
  75.  
  76.         <td width=25% valign=baseline colspan=1 >
  77.         <font size=2>
  78.         <% objRender.RenderProperty ActMsgPR_ACCOUNT, 0, Response %>
  79.         </font> </td>
  80.         
  81.         <td width=25% valign=baseline align=right>
  82.         <font size=2> <b>Phone:</b></font></td>        
  83.  
  84.         <td width=25% valign=baseline colspan=1 >
  85.         <font size=2>
  86.         <% objRender.RenderProperty ActMsgPR_BUSINESS_TELEPHONE_NUMBER, 0, Response %>
  87.         </font> </td>      
  88.     </tr>
  89.  
  90.     <tr>
  91.         <td width=25% valign=baseline align=right>
  92.         <font size=2><b>Display Name:</b></font></td>      
  93.  
  94.         <td valign=top align=left colspan=3 >
  95.         <font size=2>
  96.         <% objRender.RenderProperty ActMsgPR_DISPLAY_NAME, 0, Response %>
  97.         </font> 
  98.           </td>
  99.     
  100.     </tr>
  101.  
  102. <%
  103. If objAddrEntry.DisplayType = 1 Then %>
  104.  
  105. </table>
  106.  
  107. <%  
  108.     nPubLimit = objRenderApp.ConfigParameter("Publish GAL Limit")
  109.  
  110.  
  111.     ' No limit enforced by DSA
  112.     If CStr(nPubLimit) = "" Then
  113.         nPubLimit = 9999
  114.     End If
  115.  
  116.    If objAddrEntry.Members.Count > nPubLimit Then %>
  117. <strong>This query would return too many addresses!</strong><br>
  118. <% Else %>
  119.  
  120. <TABLE valign=top BORDER=0 CELLSPACING=0 CELLPADDING=0 width="100%">
  121. <TR valign=middle  bgcolor="330000">
  122.     <TD align=left valign=middle nowrap colspan=5>
  123.     <!--<FONT <%=bstrFace%> color="cccc99" size=2><b> </FONT>-->
  124.     </TD>
  125. </TR>
  126. <TR bgcolor="#c0c0c0">
  127.     <TD WIDTH=40%>
  128.     <B><FONT size=2>Name</FONT></B>
  129.     </TD>       
  130.     <TD WIDTH=14%>
  131.     <B><FONT size=2>Alias</Font><B>
  132.     </TD>
  133.  
  134.     <TD WIDTH=14%>
  135.     <B><FONT size=2>Department</FONT></B>
  136.     </TD>
  137.     <TD WIDTH=14%>
  138.     <B><FONT size=2>Office</FONT></B>
  139.     </TD>
  140.     <TD WIDTH=18%>
  141.     <B><FONT size=2>Phone</FONT></B>
  142.     </TD>
  143. </tr>
  144. </TABLE>
  145. <FONT size=2>
  146. <% objRender.RenderProperty ActMsgPR_CONTAINER_CONTENTS, False, Response %> 
  147. </FONT>
  148. <% End If %>
  149. <% 
  150. Else %>
  151.  
  152.  
  153.     <tr>
  154.         <td width=25% align=right>
  155.         <font size=2><b>Title:</b></font></td>     
  156.  
  157.         <td width=25% valign=baseline align=left colspan=1 >
  158.         <font size=2>
  159.         <% objRender.RenderProperty ActMsgPR_TITLE, 0, Response %> 
  160.         </font></td>
  161.     
  162.         <td width=25% valign=baseline align=right>
  163.         <font size=2><b>Manager:</b></font></td>       
  164.  
  165.         <td width=25% valign=baseline align=left colspan=1 >
  166.         <font color="black" size=2 <%=bstrFace%>>
  167.         <% objRender.Write objAddrEntry.Manager.Name, Response %> 
  168.         </font></td>      
  169.     </tr>
  170.  
  171.     <tr>
  172.         <td align=right>
  173.         <font size=2><b>Office:</b></font></td>        
  174.  
  175.         <td>
  176.         <font size=2 >
  177.         <% objRender.RenderProperty ActMsgPR_OFFICE_LOCATION, 0, Response %> 
  178.         </font></td>
  179.     
  180.         <td align=right>
  181.         <font size=2><b>Department:</b></font></td>        
  182.  
  183.         <td>
  184.         <font size=2>
  185.         <% objRender.RenderProperty ActMsgPR_DEPARTMENT_NAME, 0, Response %> 
  186.         </font></td>      
  187.     </tr>
  188.  
  189.     <tr>
  190.         <td align=right>
  191.         <font size=2><b>Company:</b></font></td>       
  192.  
  193.         <td>
  194.         <font size=2> 
  195.         <% objRender.RenderProperty ActMsgPR_COMPANY_NAME, 0, Response %> 
  196.         </font></td>
  197.     
  198.         <td align=right>
  199.         <font size=2><b>City:</b></font></td>      
  200.  
  201.         <td>
  202.         <font size=2 >
  203.         <% objRender.RenderProperty ActMsgPR_LOCALITY, 0, Response %> 
  204.         </font></td>      
  205.     </tr>
  206.     </table>
  207.     </td>
  208. </tr>
  209. </table>
  210.  
  211. <TABLE bgcolor=white BORDER=0 CELLSPACING=1 CELLPADDING=2 width=100% >
  212. <tr bgcolor=<%=bcGray%>><td WIDTH=100%><font color=white size=2><b>Email Addresses<br></b></font>
  213. </td></tr>
  214. <%
  215.     EmailAddresses = objAddrEntry.Fields.Item(ActMsgPR_EMS_AB_PROXY_ADDRESSES) 
  216.     Count = UBound(EmailAddresses)
  217.     For i = LBound(EmailAddresses) To Count
  218. %><tr><td>[<% objRender.Write EmailAddresses(i), Response %>]</td></tr>
  219. <%  Next %>
  220. </table>
  221. <% 
  222. End If %>
  223. </body>
  224. </HTML>