Multiple Compare

[Sarky78]

Hi I want to do a multiple compare to see if a value contains one of many entries

at the moment i have got the following code:

noindex = instr(rs("vpath&quot,"admin&quot
if noindex = 0 then
endcount = endcount +1
end if

to save having to do about 20 if statements, is there any way that i can do a multiple compare like

noindex = instr(rs("vpath&quot,"admin" OR "includes" etc)

any ideas ??

 

[JohnYingling]

strPath = lcase(rs("vpath")) ' if Case does not matter
I = 0
For I = lBound(aryLook) to Ubound(aryLook)
    noindex = instr(1,strPath,arylook(I),vbCompareBinary)
    if noindex = 0 then
        endcount = endcount +1
    end if
Next

http://WWW.VBCompare.Com