Problema con los caracteres especiales

[ManuelGS]

Estimados amigos,
además de novato, soy bastante torpe en esto de la programación, estoy realizando un ejercicio de consultas en una base de datos Access, todo creo qu emarcha bien hasta que le digo que me muestre un listado de los registros y me presenta los caracteres de la siguiente manera

Mara�� , Roc� DNI: 26547124 , Cn del Espino 17 Teléfono: 913980007 192.168.0.7 13/04/2007 mara��nbsp; mara��

Que lo registrado es Marañón, Rocío. Y al final marañón

Este es el código que le tengo puesto:

<%= replace(rs("Notas"),chr(34),"´") %>&nbsp;

<%= Server.HTMLEncode(rs("Notas")) %>&nbsp;

perdonad si una consulta demasiado simple para vuestro nivel. Un saludo.

[JavierB]

Hola ManuelGS. Bienvenid@ al foro.

Para hacer preguntas es preferible utilizar el foro que mejor se adapte a tu duda, así podrán ayudarte más usuarios.

Muevo tu mensaje al foro de ASP Clásico desde Bienvenida a Foros del Web.

Saludos,

[Adler]

Hola

Puedes usar una función que cambie esos caracteres a entidades html

Código asp:

Public Function Remplaza(limpia,caso)   
 
    cadena = trim(limpia)
    
    Select Case caso
 
    Case 0:
 
        cadena = replace(cadena,"'","'")
        cadena = replace(cadena,"¿","¿")
        cadena = replace(cadena,"¡","¡")
        cadena = replace(cadena,"ñ","ñ")
        cadena = replace(cadena,"Ñ","Ñ")
        cadena = replace(cadena,"á","á")
        cadena = replace(cadena,"Á","Á")
        cadena = replace(cadena,"é","é")
        cadena = replace(cadena,"É","É")
        cadena = replace(cadena,"í","í")
        cadena = replace(cadena,"Í","Í")
        cadena = replace(cadena,"ó","ó")
        cadena = replace(cadena,"Ó","Ó")
        cadena = replace(cadena,"ú","ú")
        cadena = replace(cadena,"Ú","Ú")
        
    Case Else 
        cadena = limpia
    End Select
 
    Remplaza = cadena
 
End Function
 

Uso

<%= Remplaza(rs("Notas"),0) %>&nbsp;

Suerte