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?

[rmaeloy]

Estas usando la misma variable sin cambios, así el único que se cambiara a la final es Ú.

La primera vez usa la variable con el valor a modificar "Nombre", luego debes usar la variable en donde has guardado el cambio "TituloBueno"

Esto mismo hazlo con todas:

TituloBueno = Replace(Nombre, "á", "á")
TituloBueno = Replace(TituloBueno , "é", "é")
TituloBueno = Replace(TituloBueno , "í", "í")
TituloBueno = Replace(TituloBueno , "ó", "ó")
TituloBueno = Replace(TituloBueno , "ú", "ú")
TituloBueno = Replace(TituloBueno , "ñ", "ñ")
TituloBueno = Replace(TituloBueno , "Ñ", "Ñ")
TituloBueno = Replace(TituloBueno , "Á", "Á")
TituloBueno = Replace(TituloBueno , "É", "É")
TituloBueno = Replace(TituloBueno , "Í", "Í")
TituloBueno = Replace(TituloBueno , "Ó", "Ó")
TituloBueno = Replace(TituloBueno , "Ú", "Ú")