Bien, pero eso sería sólo para la "O", pero hay 5 vocales y también pueden estar en mayúsculas o minúsculas.
Un método más fiable (aunque creo que con CodePage=1252 ó 850 se resolvería):
Código:
<%
Dim caracteres,codigoASCII
codigoASCII = "193/201/205/211/218/225/233/237/243/250"
caracteres = "A/E/I/O/U/a/e/i/o/u"
codigoASCII = Split(codigoASCII,"/")
caracteres = Split(caracteres,"/")
For i=0 to Ubound(caracteres)
cadena=Replace(cadena,Chr(codigoASCII(i)),"&" & caracteres(i) & "acute;")
Next
%>
A ver qué tal.