Hvis dubletter i array, så hiv dem ud

http://www.1keydata.com/sql/sqldistinct.html

kender godt distinct, men pointen er her, at jeg netop vil have dubletterne med fra SQLen (de skal jo udskrives) men nu vil jeg lave et array, hvor 9 kun optræder 1 gang selvom det måske i recordsettet optræder 100 gange.

Her er et forslag.
Da jeg ikke kender syntaks du skal anvende det i, samt dit konkrete format på datorne er dette ikke sikkert det lige er hvad du har forventet.
I givet fald - spørg igen og vi må prøve at ramme bedre...

Held og lykke - jeg håber det kan bruges:
<%
' ***** Metode til at indhold i et array kun fremgår en gang *****

' Initiering >>
Dim myResultArr(2)
myMonthString = "Januar,Februar,Marts,April,Maj,Juni,Juli,August,September,Oktober,November,December,Januar,Marts"
myArr = split(myMonthString,",")
' Initiering >>

Response.write "Måneder i array:<br>"
dumpArray(myArr)  ' Udskriver indholdet af array før oprydning

cleanupArray myArr, myResultArr
response.write "<br>Efter oprydning<br>"
dumpArray myResultArr

Function dumpArray(dumpArray)
  For iLoop = lbound(dumpArray) to ubound(dumpArray)
    response.write "Indhold i element " & iLoop & ": " & dumpArray(iLoop) & "<br>" & vbcrlf
  Next
End Function

Function cleanupArray (byref inputArray, byref outputArray)
  Dim myCount
  myCount = 0
  For iLoop = lbound(inputArray) to ubound(inputArray)       
    If isElementUnique (inputArray(iLoop), outputArray) Then 
      Redim Preserve outputArray(myCount)   
      outputArray(myCount) = inputArray(iLoop)
      myCount = myCount + 1
    End If
  Next

Function isElementUnique (strElement, comArr)
Dim boolResult
boolResult = True
For iLoop=lbound(comArr) to ubound(comArr)
  If strElement = comarr(iLoop) Then
    boolResult = False
    iLoop=ubound(comArr) + 1
  End If 
Next
isElementUnique = boolResult
End Function

End Function

%>

smid et svar, hvis du vil ha' point :)