Unexpected quantifier

Koden nedan fungerar bra lokalt, men i skarpt läge så får jag felet Unexpected quantifier på raden med pilen. Koden är gjord av emission (tror jag) och är anpassad av mig. :)

Public Function ParseURL(ByVal sText)
	
	If Len(Trim(sText & "")) = 0 Then Exit Function
	
	Dim objRxp
	Set objRxp = New RegExp
	objRxp.Global = True
	
	objRxp.Pattern = "(^|[^""])([url]http://[/url]|[url]https://[/url]|[url]ftp://[/url]|mailto:|file://|[url]telnet://[/url]|[url]gopher://[/url])([\w/#~:.,?+=&%@!\-]*?)([\s.:?\-]*[^\w/#~:.,?+=&%@!\-]|$)"
	sText = objRxp.Replace(sText, "$1<a target=""_blank"" href=""$2$3"">$2$3</a>$4") '<--
	
	objRxp.Pattern = "(^|[^\w/>])(www\.[\w/#~:.,?+=&%@!\-]*?)([\s.:?\-]*[^\w/#~:.,?+=&%@!\-]|$)"
	sText = objRxp.Replace(sText, "$1<a target=""_blank"" href=""http://$2"">$2</a>$3")
	objRxp.Pattern = "(^|[^:>\w])([\w\.]*@[\w\.\-]*\.\w{2,3})(\b|$)"
	sText = objRxp.Replace(sText, "$1<a href=""mailto:$2"">$2</a>")
	
	Set objRxp = Nothing
	
	ParseURL = sText
End Function

Någon som vet vad felet är?

Har det inte med för dålig version av ScriptEngine att göra?

Så brukar det vara, ja.

Får väl höra med chefen när han kommer tillbaka från semestern om man kan göra en liten uppdatering.

Hur fixar man det då? Var laddar man ner det?

http://msdn.microsoft.com/library/default.asp?url=/nhp/Default.asp?contentid=28001169

http://msdn.microsoft.com/downloads/default.asp?URL=/downloads/sample.asp?url=/msdn-files/027/001/733/msdncompositedoc.xml

Funka finfint på den lokala servern (som tidigare också fick samma fel)!

Så om inget annat blir fel p.g.a. av installationen så installerar vi väl ganska snart det på den riktiga servern. :)

Tack!