= array_counter + 1 Next Else 'Response.Write "" & RegularExpressionObject.Pattern & " was not found in the string: " & StringToSearch & "
" Redim Preserve tsa(1) tsa(0) = "NULL" End If regex_print = tsa Set RegularExpressionObject = nothing End Function %> Rate Car Pictures