Problema con acentos al enviar email con ASP

[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