Skumt fel med regexp.

Denna kod

<%
Function Smileys(sText)
sText = Server.HtmlEncode(sText)
sText = Replace(sText," :e","&nbsp;<img src=""forum_images/smileys/flin.gif"" />")
sText = Replace(sText," &gt;:|","&nbsp;<img src=""forum_images/smileys/arg.gif"" />")
sText = Replace(sText," ;)","&nbsp;<img src=""forum_images/smileys/flirt.gif"" />")
sText = Replace(sText," :|","&nbsp;<img src=""forum_images/smileys/fundersam.gif"" />")
sText = Replace(sText," :)","&nbsp;<img src=""forum_images/smileys/glad.gif"" />")
sText = Replace(sText," :(","&nbsp;<img src=""forum_images/smileys/ledsen.gif"" />")
sText = Replace(sText," :k","&nbsp;<img src=""forum_images/smileys/puss.gif"" />")
sText = Replace(sText," :00","&nbsp;<img src=""forum_images/smileys/soka.gif"" />")
sText = Replace(sText," :p","&nbsp;<img src=""forum_images/smileys/tunga.gif"" />")
sText = Replace(sText," :o","&nbsp;<img src=""forum_images/smileys/wow.gif"" />")
sText = Replace(sText," :upp","&nbsp;<img src=""forum_images/smileys/oui.gif"" />")
sText = Replace(sText," :ner","&nbsp;<img src=""forum_images/smileys/non.gif"" />")
sText = Replace(sText,vbCrlf,"<br />")

Dim objRegExp
Set objRegExp = New RegExp
objRegExp.Global = True
objRegExp.IgnoreCase = True

' mönster för fet text. 
objRegExp.Pattern = "\[b\](.*?)\[/b\]"
sText = objRegExp.Replace(sText,"<b>$1</b>")

objRegExp.Pattern = "\[u\](.*?)\[/u\]"
sText = objRegExp.Replace(sText,"<span style=""text-decoration: underline;"">$1</span>")

objRegExp.Pattern = "\[i\](.*?)\[/i\]"
sText = objRegExp.Replace(sText,"<i>$1</i>")

' mönster och ersättning för ett citat!
objRegExp.Pattern = "\[citat\](.*?)\[/citat\]"
sText = objRegExp.Replace(sText,"<table cellspacing=""0"" cellpadding=""1"" align=""center"" width=""480""><tr><td bgcolor=""#000000""><table width=""100%"" cellspacing=""0"" cellpadding=""4""><tr><td class=""citat"" valign=""top"">$1</td></tr></table></td></tr></table>")

' mönster och ersättning för ett citat med namn!
objRegExp.Pattern = "\[citat=(.*?)\](.*?)\[/citat\]"
sText = objRegExp.Replace(sText,"<table align=""center""><tr><td valign=""top"">citerar <strong>$1</strong>:<table cellspacing=""0"" cellpadding=""1"" align=""center"" width=""480""><tr><td bgcolor=""#000000""><table width=""100%"" cellspacing=""0"" cellpadding=""4""><tr><td class=""citat"" valign=""top"">$2</td></tr></table></td></tr></table></td></tr></table>")

' mönster för textstorlek 1.
objRegExp.Pattern = "\[1\](.*?)\[/1\]"
sText = objRegExp.Replace(sText,"<span class=minstatexten>$1</span>")

' mönster och ersättning för centrering
objRegExp.Pattern = "\[center\](.*?)\[/center\]"
sText = objRegExp.Replace(sText,"<center>$1</center>")

' mönster för ersättning för url med text.
objRegExp.Pattern = "\[url=(.*?)\](.*?)\[/url\]"
sText = objRegExp.Replace(sText,"<a href=""$1"" target=""_blankt"">$2</a>")

' mönster för ersättning för url utan text.
objRegExp.Pattern = "\[url\](.*?)\[/url\]"
sText = objRegExp.Replace(sText,"<a href=""$1"" target=""_blankt"">$1</a>")

' mönster för ersättning för en bild.
objRegExp.Pattern = "\[bild=(.*?)\]"
sText = objRegExp.Replace(sText,"<img src=""$1"" border=""1"" />")

Smileys = sText
End Function

%>

har funkat hur fint som helst... men idag så gav servern ifrån sig detta:

Feltyp:
Körningsfel i Microsoft VBScript (0x800A139A)
Oväntad kvantifierare
/library/forum-funktioner.asp, line 25

?? :q