Acentos en base de datos

[neofilo]

Hola a todos, tengo un problema que me está volviendo loco.

Tengo un formulario donde le solicito unos datos concretos

los recupero de esta manera:

Código:

idPromo = request.form("idPromo")
Nombre = request.form("Nombre")
Viviendas = request.form("Viviendas")
TipoPromo = request.form("TipoPromo")
Poblacion = request.form("Poblacion")
Provincia = request.form("Provincia")
FasePromo = request.form("FasePromo")
Descripcion = request.form("Descripcion")

Para evitar meter acentos en la base de datos y luego tener problemas en la web transformo los datos de esta forma.

Código:

		        TituloBueno = Replace(Nombre, "á", "á")
			TituloBueno = Replace(Nombre, "é", "é")
			TituloBueno = Replace(Nombre, "í", "í")
			TituloBueno = Replace(Nombre, "ó", "ó")
			TituloBueno = Replace(Nombre, "ú", "ú")
			TituloBueno = Replace(Nombre, "ñ", "ñ")
			TituloBueno = Replace(Nombre, "Ñ", "Ñ")
			TituloBueno = Replace(Nombre, "Á", "Á")
			TituloBueno = Replace(Nombre, "É", "É")
			TituloBueno = Replace(Nombre, "Í", "Í")
			TituloBueno = Replace(Nombre, "Ó", "Ó")
			TituloBueno = Replace(Nombre, "Ú", "Ú")
			FaseBuena = Replace(FasePromo, "á", "á")
			FaseBuena = Replace(FasePromo, "é", "é")
			FaseBuena = Replace(FasePromo, "í", "í")
			FaseBuena = Replace(FasePromo, "ó", "ó")
			FaseBuena = Replace(FasePromo, "ú", "ú")
			FaseBuena = Replace(FasePromo, "ñ", "ñ")
			FaseBuena = Replace(FasePromo, "Ñ", "Ñ")
			FaseBuena = Replace (FasePromo, "Á", "Á")
			FaseBuena = Replace (FasePromo, "É", "É")
			FaseBuena = Replace (FasePromo, "Í", "Í")
			FaseBuena = Replace (FasePromo, "Ó", "Ó")
			FaseBuena = Replace (FasePromo, "Ú", "Ú")
			TextoBueno = Replace (Descripcion, vbCrLf, "<BR/>")
			TextoBueno = Replace (Descripcion, "'", "'")
			TextoBueno = Replace (Descripcion, "á", "&aacute;")
			TextoBueno = Replace (Descripcion, "é", "&eacute;")
			TextoBueno = Replace (Descripcion, "í", "&iacute;")
			TextoBueno = Replace (Descripcion, "ó", "&oacute;")
			TextoBueno = Replace (Descripcion, "ú", "&uacute;")
			TextoBueno = Replace (Descripcion, "Á", "&Aacute;")
			TextoBueno = Replace (Descripcion, "É", "&Eacute;")
			TextoBueno = Replace (Descripcion, "Í", "&Iacute;")
			TextoBueno = Replace (Descripcion, "Ó", "&Oacute;")
			TextoBueno = Replace (Descripcion, "Ú", "&Uacute;")

Y actualizo la base de datos de esta forma.

Código:

SQLActualizar = "UPDATE info_coop_comercial SET Nombre_coop = '"&TituloBueno&"', Num_Viviendas = '"&Viviendas&"', Tipo_Promo = '"&TipoPromo&"', Poblacion = '"&Poblacion&"', Provincia = '"&Provincia&"', Fase_Promo = '"&FaseBuena&"', Texto = '"&TextoBueno&"' WHERE id_coop = '"&idPromo&"'"

cn.execute(SQLActualizar)

response.Write("<H3>Los datos han sido actualizados Correctamente</h3>")

El problema es que cuando voy a la base de datos a ver los datos introducidos me ha metido los acentos normales y corrientes, por ejemplo si pongo en nombre: "Nombre en constitución" con el replace que he echo deveria apartecer "Nombre en consituci&oactute;n" pero me sigue poniendo el acento normal y corriente y no el codigo HTML que le he dicho que me ponga.


Que puedo estar haciendo mal?