ASP filter Array Duplicate data

function Array_no (CXSTR1,CXSTR2,CXSTR3)
If Len (CXSTR3) > 0 Then
If not IsNumeric (CXSTR3) Then
Array_no = "Sorry, parameter 3 type must be number"
Exit Function
End If
Else
Array_no = "Sorry, parameter 3 type must be number"
Exit Function
End If
If IsArray (CXSTR1) Then
Array_no = "Sorry, parameter 1 cannot be an array"
Exit Function
End If
If cxstr1 = "" or IsEmpty (CXSTR1) Then
Array_no = "No Data"
Exit Function
End If
SS = Split (CXSTR1,CXSTR2)
CXS=CXSTR2&SS (0) &cxstr2
Sss=cxs
For m = 0 To UBound (ss)
CC = CXSTR2&SS (m) &cxstr2
If InStr (SSS,CC) =0 Then
SSS = SSS&SS (m) &cxstr2
End If
Next
Array_no = Right (Sss,len (SSS)-len (CXSTR2))
Array_no = Left (Array_no,len (array_no)-len (CXSTR2))
If CXSTR3 <> 0 Then
CX_SP = Split (ARRAY_NO,CXSTR2)
If CXSTR3 > UBound (cx_sp) Then
Array_no = cx_sp (UBound (CX_SP))
Else
Array_no = cx_sp (CXSTR3)
End If
End If
End Function%>