Problema con asp y juego de caracteres.

[mrossiarg]

Hola

Tengo un sistema en asp y cuando ingresan registros a la db con acentos, o ñ, o caracteres especiales, luego cuando los leo me los lee mal.

Antes de ingresar datos a la db le paso esta funcion:

Function caracteres(texto)
texto = replace(texto,"Á","Á")
texto = replace(texto,"É","É")
texto = replace(texto,"Í","Í")
texto = replace(texto,"Ó","Ó")
texto = replace(texto,"Ú","Ú")
texto = replace(texto,"á","á")
texto = replace(texto,"é","é")
texto = replace(texto,"í","í")
texto = replace(texto,"ó","ó")
texto = replace(texto,"ú","ú")
texto = replace(texto,"Ñ","Ñ")
texto = replace(texto,"ñ","ñ")
caracteres = texto
End Function

Remplazando los caracteres por html, sin embargo sigue dandome error.
Ya cambie varias veces eljuego de caracteres HTML, pero sigue sin verse bien.
Alguna sugerencia? Gracias

Sr. Juan Caño Soldado (ejemplo de como remplzao una ñ)

saludos