Problema con acentos al enviar email con ASP

[asturmano]

Hola Buenas! Vereis tengo un formulario hecho en Flash que envía datos con un fichero ASP, hasta ahí todo bien. Pero no se como evitar que me saque códigos raros cuando intento poner caracteres especiales (acentos,comillas,ñ´s). estos caracteres erroneos sólo aparecen en el código fijo, el que yo pongo por defecto en el ASP digamos, sin embargo no aparece en los campos que relleno en el formulario.

Si os fijais más abajo el nombre es un campo rellenado y he puesto Asturíano y pone bien el acento pero "Sería" que es parte del texto fijo lo pone como "SerÃ*a"

Adjunto código del ASP resultado obtenido en el correo.

Set Mail = Server.CreateObject ("Persits.MailSender")
Mail.Host = "mailmimailcom"
Mail.Username = "mimail2miwebcom"
Mail.Password = "mipass"
Mail.From = "mimail2miwebcom"

Mail.FromName = "Apartamentos taltal"
Mail.AddAddress "mimail2hotmailcom"
Mail.AddCC correo
Mail.AddCC "otrocorreo2yahooes"
Mail.Subject = "Book Online / Reserva por Internet"
Mail.Body = "Hello! My name is " & nombre & " and I’m interested in renting " & APARTMENTo & " from the " & dia1 & " de " & mes1 & " del " & ano1 & " until the " & dia2 & " de " & mes2 & " of " & ano2 & ". We would be " & numero & " guests. You can contact me at " & tel & " or write me an email " & correo & ". Additionally I would like to comment " & consultas & ". Many thanks." & vbCrLf & vbCrLf & "Hola! Soy " & nombre &" y me interesa el alquiler del " & apartamento & " desde el " & dia1 & " de " & mes1 & " del " & ano1 & " hasta el " & dia2 & " de " & mes2 & " del " & ano2 & ". Sería para " & numero & " personas. Para ponerte en contacto conmigo me puedes llamar al teléfono " & tel & " o escribirme un correo a " & correo & ". Además quería comentarte que " & consultas & ". Muchas gracias."
Mail.Queue=True
Mail.Send

EL RESULTADO OBTENIDO ES:

Hello! My name is Javier Asturíano and Iâ?Tm interested in renting from the 11 de January del 2009 until the 13 de January of 2009. We would be 2 guests. You can contact me at 666666666 or write me an email micorre"direcc.com. Additionally I would like to comment Otra prueba. Many thanks.

Hola! Soy Javier Asturíano y me interesa el alquiler del Apartment 3 desde el 11 de January del 2009 hasta el 13 de January del 2009. SerÃ*a para 2 personas. Para ponerte en contacto conmigo me puedes llamar al teléfono 666666666 o escribirme un correo a micorre"direcc.com. Además querÃ*a comentarte que Otra prueba. Muchas gracias.

[Adler]

Hola

Usa las funciones escape (al enviarlo) y unescape (al recibirlo)

Suerte

[asturmano]

Gracias!!!! pero me podrías especificar más como hacerlo, un ejemplo quizás. Nunca he programado con ASP y no se como hacerlo.

[Adler]

Hola

Mira, vamos ha reemplazar los caracteres acentuados, las ñ y las comillas simples por sus entidades html

Código asp:

Dim cadena 
 
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
 

NOTA: El foro interpreta la linea 11 cambiala a esto
cadena = replace(cadena,"'"," & # 3 9 ; ") // Quitale los espacios


Ahora quedaría así

Código asp:

cuerpo = Remplaza("Hello! My name is " & nombre & " and I’m interested in renting " & APARTMENTo & " from the " & dia1 & " de " & mes1 & " del " & ano1 & " until the " & dia2 & " de " & mes2 & " of " & ano2 & ". We would be " & numero & " guests. You can contact me at " & tel & " or write me an email " & correo & ". Additionally I would like to comment " & consultas & ". Many thanks." & vbCrLf & vbCrLf & "Hola! Soy " & nombre &" y me interesa el alquiler del " & apartamento & " desde el " & dia1 & " de " & mes1 & " del " & ano1 & " hasta el " & dia2 & " de " & mes2 & " del " & ano2 & ". Sería para " & numero & " personas. Para ponerte en contacto conmigo me puedes llamar al teléfono " & tel & " o escribirme un correo a " & correo & ". Además quería comentarte que " & consultas & ". Muchas gracias.",0)
 
Mail.Body = cuerpo
 

Suerte

[asturmano]

Hola Adler! Muchas gracias por tu explicación, pero te cuento como lo he resuelto finalmente. He investigado acerca del escape y el unescape (he visto que otras veces has dado esa solución).

Y en el formulario flash le he puesto escpa(nombre de variable a enviar a asp) y en el programa asp he recibido la variable como unescape(nombre de variable recibida). Además he cambiado el codigo a ISO_8859-1 y ha empezado a funcionar correctamente.

Muchas gracias por todo y también por no odiar.

[Adler]

Iniciado por asturmano

Hola Adler! Muchas gracias por tu explicación, pero te cuento como lo he resuelto finalmente. He investigado acerca del escape y el unescape (he visto que otras veces has dado esa solución).

Y en el formulario flash le he puesto escpa(nombre de variable a enviar a asp) y en el programa asp he recibido la variable como unescape(nombre de variable recibida). Además he cambiado el codigo a ISO_8859-1 y ha empezado a funcionar correctamente.

Muchas gracias por todo y también por no odiar.

Perfecto , tenías ambas opciones