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)
