<% Dim zFilter_Key Set zFilter_Key = CreateObject("Scripting.Dictionary") zFilter_Key.Add ":(", "" zFilter_Key.Add ";)", "" zFilter_Key.Add ":)", "" zFilter_Key.Add " webkaos ", " webkaos " %>