Expressões regulares e replace em ASP

Em ASP o uso de expressões regulares é bem diferente e confuso em relação ao metódico e coerente Javascript.

A seguir, um exemplo de Replace de caracteres acentuados muito útil:


<%
Dim RegEx
Set RegEx = New RegExp
RegEx.Global = True
RegEx.IgnoreCase = True
'Set Resp = RegEx.Execute("olás")
Texto = "olás lilás e olés e olós"
'* Inicio funcional
carac = "á,Á,é,É,í,Í"
codigo = "&aacute;,&Aacute;,&eacute;,&Eacute;,&iacute;,&Iacute;"
arrCar = split(carac,",")
arrCod = split(codigo,",")
i = 0
For Each x in arrCar
Response.write(x&","&i)
RegEx.Pattern = arrCar(i)
Texto = RegEx.replace(Texto, arrCod(i))
i = i + 1
Next
'* Fim funcional
Response.Write "<textarea cols=80 rows=5>"&Texto&"</textarea>"
%>