Fejl i reg.exp.-script

Hej

Jeg har dette script, som sletter mine style-tags. Og det ser ud til at virke meget godt (ved dog ikke om det virker ikke alle "situationer").

Function StripStyle(ByRef asHTML)
    Set regEx = New RegExp
    regEx.IgnoreCase = True
    regEx.Global = True
    regEx.Pattern = "(<style[^<]+<\/style>)"
    StripStyle = regEx.Replace(asHTML, "")
    Set regEx = Nothing
End Function

Nu har jeg lavet et andet script, som skal slette script-tagene, men det virker slet ikke. Hvorfor?

Function StripScript(ByRef asHTML)
    Set regEx = New RegExp
    regEx.IgnoreCase = True
    regEx.Global = True
    regEx.Pattern = "(<script[^<]+<\/script>)"
    StripScript = regEx.Replace(asHTML, "")
    Set regEx = Nothing
End Function

F.eks. sletter scriptet ikke følgende kode:

<script language="JavaScript"><!--
MSFPhover =
  (((navigator.appName == "Netscape") &&
  (parseInt(navigator.appVersion) >= 3 )) ||
  ((navigator.appName == "Microsoft Internet Explorer") &&
  (parseInt(navigator.appVersion) >= 4 )));
function MSFPpreload(img)
{
  var a=new Image(); a.src=img; return a;
}
// --></script>