<%
' Company: Sabra Inc
' Author: Dave Hoffenberg
' Function: Finds a value within a delimited list
' FreewareFunction 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,"-")
%>
