Classic ASP – IN ARRAY

Function InArray(Needle, Haystack)
    Dim i, x
    InArray = False

    For i = 0 To Ubound(Haystack)
        If IsArray(Needle) = True Then
            For x = 0 To Ubound(Needle)
                If Trim(Haystack(i)) = Trim(Needle(x)) Then
                    InArray = True
                    Exit Function
                End If
            Next
        Else
            If Trim(Haystack(i)) = Trim(Needle) Then
                InArray = True
                Exit Function
            End If
        End If
    Next
End Function

SOURCE: https://gist.github.com/gwobcke/1044367

This entry was posted on Sunday, September 8th, 2019 at 7:06 pmand is filed under ASP. You can follow any responses to this entry through the RSS 2.0 feed. Responses are currently closed, but you can trackback from your own site.

Comments are closed.