ADO with navigation (ASP)

This code can be found in Chapter 28 of Active Directory, 3rd Edition

Purchase XP Cookbook or Networking Recipes for only $25 plus shipping! While supplies last.

Find out how to download all of the ASP code from this site.

<!--#include file="adovbs.inc" -->
<!--
' From the book "Active Directory, Third Edition" 
' ISBN: 0-596-10173-2
-->
<!--#include file="adovbs.inc" -->
<%
  Set objConn = CreateObject("ADODB.Connection")
  objConn.Provider = "ADSDSOObject"
  objConn.Open "", "mycorp\administrator", "My-admin-password!"
   
  Set objRS = objConn.Execute _
    ("<LDAP://dc=mycorp,dc=com>;(&(objectCategory=person)(objectClass=User))" _
                                                & ";ADsPath;SubTree")
   
  If Request.Form("Next") <> "" Then
    objRS.AbsolutePosition = Request.Form("AbsPosition") + 1
  ElseIf Request.Form("Previous") <> "" Then
    objRS.AbsolutePosition = Request.Form("AbsPosition") - 1
  ElseIf Request.Form("First") <> "" Then
    objRS.MoveFirst
  ElseIf Request.Form("Last") <> "" Then
    objRS.MoveLast
  End If
%>
   
<! Start the main page>
<HTML>
<HEAD>
<TITLE>Recordset Navigation using ADSI, ADO and ASP</TITLE>
</HEAD>
   
<BODY>
<% 
  strUsername = "mycorp\administrator"
  strPassword = "My-admin-password!"
   
  Set objNamespace = GetObject("LDAP:")
  Set objUser = objNamespace.OpenDSObject(objRS("ADsPath"), _
    strUsername,strPassword,0)
   
  Response.Write "Name: <B>" & objUser.Name & "</B><P>"
  Response.Write "ADsPath: <B>" & objUser.ADsPath & "</B><P>"
  Response.Write "Description: <B>" & objUser.Description & "</B><P>"
%>
<FORM METHOD="POST" ACTION="rs_demo.asp">
  <INPUT TYPE="HIDDEN" NAME="AbsPosition" 
    VALUE="<% = objRS.AbsolutePosition %>">
  <% If objRS.AbsolutePosition = objRS.RecordCount Then %>
    <INPUT TYPE="SUBMIT" NAME="Previous" VALUE="Previous">
  <% ElseIf objRS.AbsolutePosition = 1 Then %>
    <INPUT TYPE="SUBMIT" NAME="Next" VALUE="Next">
  <% Else %>
    <INPUT TYPE="SUBMIT" NAME="Previous" VALUE="Previous">
    <INPUT TYPE="SUBMIT" NAME="Next" VALUE="Next">
  <% End If %>
   
  <INPUT TYPE="SUBMIT" NAME="First" VALUE="Move First">
  <INPUT TYPE="SUBMIT" NAME="Last" VALUE="Move Last">
</FORM>
   
</BODY>
</HTML>

This code has been viewed 1427 times.

New from the creators of TechTasks.com: StatSheet.com