Set con = Server.CreateObject("ADODB.Connection")
con.provider = "ADsDSOObject"
con.open "Active Directory Provider"
Set Com = CreateObject("ADODB.Command")
Set Com.ActiveConnection = con
Com.CommandText = "select givenName from 'LDAP://SERVERNAME/ou=Users,ou=Site,DC=domain,DC=com' WHERE sAMAccountName='" & theUser & "' ORDER BY sn; "