eliminar espacios repetidos en una cadena ASP clasico

[alpe2000]

Código ASP:

str = "  Este      peine es muy bonito   ,     pero la verdad es que  M         hoy no me lo     pido . y ahora con un descuento del 10 %"
 
  Dim regEx
  Set regEx = New RegExp
  regEx.Global = true
  regEx.IgnoreCase = True
  regEx.Pattern = "\s{2,}"
 
  str = Trim(regEx.Replace(str, " "))
 
  regEx.Pattern = "\s(\!|\.|\?|\;|\,|\:,|\%)"
  str = regEx.Replace(str, "$1")
 
  response.write str