Learn about Edgartown's quest to ensure the safety and security of the entire town's employee and citizen data. Read the case study!
strUser = "SCAP\phonebook" strPassword = "phonebook" ' Dim Conn, strRS, RS, strConn Set Conn = Server.CreateObject("ADODB.Connection") Set RS = Server.CreateObject("ADODB.Recordset") Conn.Provider = "ADsDSOObject" Conn.Properties("User ID") = strUser Conn.Properties("Password") = strPassword Conn.Properties("Encrypt Password") = True strConn = "Active Directory Provider" Conn.Open strConn , strUser, strPassword strRS = "SELECT displayname,sn,givenname,telephoneNumber,objectCategory,department FROM 'LDAP://SCAP' WHERE " strRS = strRS & "objectCategory = 'CN=Person,CN=Schema,CN=Configuration,DC=assessor,DC=shelby,DC=tn,DC=us'" strRS = strRS & " and ( telephoneNumber = '5*' " strRS = strRS & " or telephoneNumber = '3*' ) order by sn" RS.Open strRS, Conn
Add your voice to the tech community where 5M+ people just like you are talking about what matters.
Join the community of 500,000 technology professionals and ask your questions.