Your technology certification is waiting. Enroll in Cloud Class ®
Private Function HasDups(byVal arrayinput)
dim wkarray, j, i, l
wkarray = arrayinput
for j = 0 to ubound( wkarray )
l = 0
for i = 0 to ubound( wkarray )
if wkarray(i) = wkarray(j) then l = l + 1
if l > 1 then
HasDups = True
HasDups = False
' HasDups returns True
' ( 1 is duplicated )
response.write HasDups( Array( 1,2,3,4,5,6,7,8,9,0,1 ) )
' HasDups returns False
' (All items in the array are unique)
response.write HasDups( Array( 1,2,3,4,5,6,7,8,9,10,11 ) )
Open in new window
Are you are experiencing a similar issue? Get a personalized answer when you ask a related question.
Have a better answer? Share it in a comment.
Please enter a first name
Please enter a last name
Must be at least 4 characters long.
Join and Comment
From novice to tech pro — start learning today.
Premium members can enroll in this course at no extra cost.