<%
' Company: Sabra Inc
' Author: Dave Hoffenberg
' Function: Finds a value within a delimited list
' Freeware

Function ListFind(value,list,delim)

If list <> "" Then

    arr = split(list,delim)
   
    For i=0 to ubound(arr)
   
    If arr(i) = value Then
        Match = 1
        Exit For
    Else
        Match = 0        
    End If
   
    Next

    ListFind = Match
   
Else

    ListFind = 0

End If

End Function

strList = "1,2,3"
response.write ListFind("1",strList,",")

response.write "<br>"

strList = "a-b-c"
response.write ListFind("a",strList,"-")
%>