no entiendo...si tu llamas a la función así, te devolverá lo mismo en el explorador:
Código:
Response.Write limpiar("áÉíÓú"Ñ")
Porque estás haciendo esto finalmente:
Código:
Response.Write chr(225) & chr(201) & chr(237) & chr(211) & chr(250) & chr(34) & chr(209)
A menos que lo que quieras sea desplegar el código?
Entonces la función debería devolver un string:
Código:
str=Replace(str,"Á","Chr(193)")
Es esto lo que quieres, si no disculpa, pero no entiendo
Salu2,