dim RegExp set RegExp=new RegExp RegExp.IgnoreCase =False RegExp.Global=True
dim i,j j = ubound(split(strA,",")) for i=0 to j RegExp.Pattern="("split(strA,",")(i)")" if(RegExp.Test(strB))then isOK=True exit for end if next set RegExp=Nothing response.write(isOK)
