vbscript version of SQL 'SELECT DISTINCT'

SoC · February 7th, 2006, 08:15 PM

Howdy,

I am querying our Active Directory to built a phone list. I wanted to select a distinct list of locations, but it looks like MS's ADSI SQL dialect does not support 'SELECT DISTINCT'.

So I'm guessing I'll have to build a distinct list on the client side with vbscript, but my vb knowledge is very limited. Can someone point me in the right direction?

Do I need to create an array or something? Or does vbscript have another way of manipulating the recordset to pull out only distinct values form a particular field?

Thanks

SoC · February 8th, 2006, 03:16 AM

Sorted.

Managed to use a dictionary object - stored the unique records in it. Problem is I'm sure it's a lot slower than a SQL Select Distinct equivalent, cos my solution is happening on the client side:

Code:

set objD = CreateObject("Scripting.Dictionary")

while not myRS.EOF
    myString = myRS.Fields("physicalDeliveryOfficeName")
    if not objD.Exists (myString) then
        objD.Add myString, myString
    end if
   myRS.MoveNext
wend

Then to display the unique results in a select box:

<select name="sel1">
<%
myResults = objD.Items
for i = 0 to objD.Count - 1%>
<option><%=myResults(i)%></option>
<%
next
objD.RemoveAll
set objD = nothing
%>
</select>