<% Function InputFilter(userInput) Dim newString, regEx Set regEx = New RegExp regEx.Pattern = "([^A-Za-z0-9@.' _-]+)" regEx.IgnoreCase = True regEx.Global = True newString = regEx.Replace(userInput, "") Set regEx = nothing InputFilter = newString End Function %>