home *** CD-ROM | disk | FTP | other *** search
/ io Programmo 27 / IOPROG_27.ISO / SOFT / ADSDK.ZIP / Samples / ASP / WAB / detail.asp < prev    next >
Encoding:
Text File  |  1999-02-08  |  3.9 KB  |  102 lines
  1. <html>
  2.  
  3. <head>
  4. <meta name="GENERATOR" content="Microsoft FrontPage 3.0">
  5. <title>Detail Object Information</title>
  6. </head>
  7.  
  8. <body>
  9. <%
  10.   'Parse the URL path into adsPath
  11.   urlPath = Request.QueryString("anr")
  12.   idx = 1
  13.   adsPath = ""
  14.   While idx <> 0
  15.       idx = InStr(1, urlPath, "%20")
  16.       If (idx = 0) Then
  17.          adsPath = adsPath & Mid(urlPath, 1)
  18.       Else
  19.          adsPath = adsPath & Mid(urlPath, 1, idx - 1)
  20.         adsPath = adsPath & " "
  21.       End If
  22.       urlPath = Mid(urlPath, idx + 3)
  23.    Wend
  24.    Set dso = GetObject("LDAP:")
  25.    Set o = dso.OpenDSObject( adsPath, "ntdev\ntdev", "ntdevntdev", 1 )
  26.    mgrPath = o.Get("manager")
  27.    Set mgr = dso.OpenDSObject("GC://ntdev.microsoft.com/" & mgrPath , "ntdev\ntdev", "ntdevntdev", 1 )
  28.    
  29.  
  30.    On Error Resume Next
  31. %>
  32.  
  33. <p> </p>
  34.  
  35. <table border="0" width="100%" cellpadding="2" cellspacing="1">
  36.   <tr>
  37.     <td width="16%" bgcolor="#000080" align="right"><font face="Verdana" color="#FFFFFF"><strong><small>Name:
  38.     </small></strong></font></td>
  39.     <td width="84%"><font face="Verdana" color="#0080C0"><strong><small><% Response.Write o.Get("cn") %></small></strong></font></td>
  40.   </tr>
  41.   <tr>
  42.     <td width="16%" bgcolor="#000080" align="right"><font face="Verdana" color="#FFFFFF"><small><strong>Phone</strong></small></font></td>
  43.     <td width="84%"><font face="Verdana" color="#0080C0"><small><%Response.Write o.Get("telephoneNumber")%></small></font></td>
  44.   </tr>
  45.   <tr>
  46.     <td width="16%" bgcolor="#000080" align="right"><font face="Verdana" color="#FFFFFF"><small><strong>Office</strong></small></font></td>
  47.     <td width="84%"><font face="Verdana" color="#0080C0"><small><%Response.Write o.Get("physicalDeliveryOfficeName")%></small></font></td>
  48.   </tr>
  49.   <tr>
  50.     <td width="16%" bgcolor="#000080" align="right"><font face="Verdana" color="#FFFFFF"><small><strong>Manager</strong></small></font></td>
  51.     <td width="84%"><font face="Verdana" color="#0080C0"><small><a
  52.     href="detail.asp?anr=<%Response.Write mgr.AdsPath%>"><%Response.Write mgr.Get("cn")%></a></small></font></td>
  53.   </tr>
  54.   <tr>
  55.     <td width="16%" bgcolor="#000080" align="right"><font face="Verdana" color="#FFFFFF"><strong><small>Deparment</small></strong></font></td>
  56.     <td width="84%"><font face="Verdana" color="#0080C0"><small><%Response.Write o.Get("department")%></small></font></td>
  57.   </tr>
  58.   <tr>
  59.     <td width="16%" bgcolor="#000080" align="right"><font face="Verdana" color="#FFFFFF"><strong><small>Company</small></strong></font></td>
  60.     <td width="84%"><font face="Verdana" color="#0080C0"><small><%Response.Write o.Get("company")%></small></font></td>
  61.   </tr>
  62.   <tr>
  63.     <td width="16%" bgcolor="#000080" align="right"></td>
  64.     <td width="84%"></td>
  65.   </tr>
  66.   <tr>
  67.     <td width="16%" bgcolor="#000080" align="right"><font face="Verdana" color="#FFFFFF"><small><strong>NT
  68.     4.0 Logon</strong></small></font></td>
  69.     <td width="84%"><font face="Verdana" color="#0080C0"><small><%Response.Write o.Get("samAccountName")%></small></font></td>
  70.   </tr>
  71.   <tr>
  72.     <td width="16%" bgcolor="#000080" align="right"><font face="Verdana" color="#FFFFFF"><small><strong>UPN</strong></small></font></td>
  73.     <td width="84%"><font face="Verdana" color="#0080C0"><small><%Response.Write o.Get("userPrincipalName")%></small></font></td>
  74.   </tr>
  75.   <tr>
  76.     <td width="16%" bgcolor="#000080" align="right"></td>
  77.     <td width="84%"></td>
  78.   </tr>
  79.   <tr>
  80.     <td width="16%" bgcolor="#000080" align="right"></td>
  81.     <td width="84%"></td>
  82.   </tr>
  83.   <tr>
  84.     <td width="16%" bgcolor="#000080" align="right"></td>
  85.     <td width="84%"></td>
  86.   </tr>
  87.   <tr>
  88.     <td width="16%" bgcolor="#000080" align="right"></td>
  89.     <td width="84%"></td>
  90.   </tr>
  91.   <tr>
  92.     <td width="16%" bgcolor="#000080" align="right">Direct Report</td>
  93.     <td width="84%"></td>
  94.   </tr>
  95.   <tr>
  96.     <td width="16%" bgcolor="#000080" align="right">MemberOf</td>
  97.     <td width="84%"></td>
  98.   </tr>
  99. </table>
  100. </body>
  101. </html>
  102.