cosi funziona

<%
' INIZIO BBCODE
function bbcode(argStrText)
Dim objRegExp
Set objRegExp = New Regexp
objRegExp.IgnoreCase = True
objRegExp.Global = True

' 1 (smile)
objRegExp.Pattern = ":P"
argStrText = objRegExp.Replace(argStrText, "[img]" & cartellaimg & "/" & cartellasmilies & "/tongue.gif[/img]")

set objRegExp = Nothing

bbcode = argStrText
End Function
' FINE BBCODE
%>


cosi' no:


<%
' INIZIO BBCODE
function bbcode(argStrText)
Dim objRegExp
Set objRegExp = New Regexp
objRegExp.IgnoreCase = True
objRegExp.Global = True

' 1 (smile)
objRegExp.Pattern = ":P"
argStrText = objRegExp.Replace(argStrText, "[img]" & cartellaimg & "/" & cartellasmilies & "/tongue.gif[/img]")


' 2 (smile)
objRegExp.Pattern = ""
argStrText = objRegExp.Replace(argStrText, "[img]" & cartellaimg & "/" & cartellasmilies & "/smile.gif[/img]")

set objRegExp = Nothing

bbcode = argStrText
End Function
' FINE BBCODE
%>


come mai nel secondo caso che ho aggiunto un'altro smilies mi da questo errore:

Microsoft VBScript runtime error '800a1399'

Syntax error in regular expression