Problema con función

Hola a todos,

Estoy llamando a la siguiente función:

function BorrarScript(str)
dim oER:set oER = New RegExp
oER.Pattern = "<script[^>]*?>"
oER.IgnoreCase = True
oER.Global = True
BorrarScript = oER.replace(str, "")
set oER = nothing
end function

y me da el siguiente error:

Microsoft VBScript runtime error '800a139a'

Unexpected quantifier

/_script.asp, line 25


la línes 25 corresponde con:

BorrarScript = oER.replace(str, "")




Lo que quiero hacer es eliminar un texto concreto en un registro de la
base
de datos:

<script>texto</script><script>texto2</script><script>texto3</script>

Tengo todos estos scripts seguidos y quiero eliminarlos y he pesando en la
función anterior, aunque me queda un poco de "basura" y tengo que utilizar
la
siguiente para limpiarlo por completo:

function limpiarScript(str)
cadena = replace(str, "</script>", "")
cadena = trim(replace(cadena, "<", ""))

limpiarScript = cadena
end function


me pueden ayudar... muchas gracias y un cordial saludo,