Foros del Web » Programando para Internet » ASP Clásico »

Acentos en base de datos

Estas en el tema de Acentos en base de datos en el foro de ASP Clásico en Foros del Web. 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: ...
  #1 (permalink)  
Antiguo 31/03/2014, 04:49
 
Fecha de Ingreso: abril-2012
Ubicación: Madrid (España)
Mensajes: 162
Antigüedad: 11 años, 11 meses
Puntos: 5
Acentos en base de datos

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?
  #2 (permalink)  
Antiguo 02/04/2014, 18:39
 
Fecha de Ingreso: abril-2014
Mensajes: 32
Antigüedad: 9 años, 11 meses
Puntos: 0
Respuesta: Acentos en base de datos

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, "á", "&aacute;")
TituloBueno = Replace(TituloBueno , "é", "&eacute;")
TituloBueno = Replace(TituloBueno , "í", "&iacute;")
TituloBueno = Replace(TituloBueno , "ó", "&oacute;")
TituloBueno = Replace(TituloBueno , "ú", "&uacute;")
TituloBueno = Replace(TituloBueno , "ñ", "&ntilde;")
TituloBueno = Replace(TituloBueno , "Ñ", "&Ntilde;")
TituloBueno = Replace(TituloBueno , "Á", "&Aacute;")
TituloBueno = Replace(TituloBueno , "É", "&Eacute;")
TituloBueno = Replace(TituloBueno , "Í", "&Iacute;")
TituloBueno = Replace(TituloBueno , "Ó", "&Oacute;")
TituloBueno = Replace(TituloBueno , "Ú", "&Uacute;")

Última edición por rmaeloy; 02/04/2014 a las 19:21

Etiquetas: acentos, formulario, sql
Atención: Estás leyendo un tema que no tiene actividad desde hace más de 6 MESES, te recomendamos abrir un Nuevo tema en lugar de responder al actual.
Respuesta




La zona horaria es GMT -6. Ahora son las 04:12.