Hi, I need your help.

I need exclude double values in this list:

Code:
.Mem C
.Mem C
For A
.Mem C
For A
Gia A
.Mem C
For A
Gia A
Cir G.
I try this asp code:
Code:
         str = objRS("phrases")
         arr = split(str,"..")

            if IsArray(arr) then
               for xE = 0 to Ubound(arr)
               
                  strings = arr(xE)
                  
                  if not strings then
                     response.write strings & arr(xE) & "<br />"
                  end if
                  
               next
            end if
But error is:
Microsoft VBScript runtime (0x800A000D) Type mismatch

Can you help me?