dubletter i PM

Hej!

Jag har byggt en liten enkel tipsafunktion och eftersom det inte var så noga med att spara de tipsades adresser vid projektstart så la jag in adresserna i ett pm-fält separerade med semikolon. Nu har "dom" dock sagt att de vill kunna skriva ut alla adresser och då utan dubletter, eftersom en del försöker fuska så finns det ju alltid några dubletter. Det är här problemet kommer. Jag har den här koden nu -

respect=rs2("kompisar")
if respect>"" then
tipped=trim(respect)
dim myarr
myarr=split(tipped,";")

function checkDuplicate(m,i)
dim j
for j = 0 to i - 1
if  m(j) = m(i) then
checkDuplicate = true
exit function
end if
next
checkDuplicate = false
end function

for i = 0 to ubound(myarr)
if not checkDuplicate(myarr,i) then 
response.write myarr(i) &"<br>"
end if
next
end if

hittade den här i forumet, ur ett inlägg av LarsG för nån som behövde liknande hjälp. Den funkar iaf inte för mig.

Hjälp, jag är trött..........