Hola !!
A ver si con este ejemplo te das cuenta:
<%
Dim Texto
Texto = oRS("Texto")
Texto = Replace(Texto, "i", "í")
Texto = Replace(Texto, "a", "á")
Texto = Replace(Texto, "e", "é")
'... y sigue todo lo que quieras...
Response.Write Texto
%>
Espero que te sirva.
Chauuss !!
Sergio Flores<br>La Rioja, Argentina.<br><a href="http://www.lamatufia.com.ar">La Matufia</a>