Despues de muchas pruebas al final ha funcionado asi, charset=iso-8859-1:
El HTML:
<!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.01 Transitional//EN"
"http://www.w3.org/TR/html4/loose.dtd">
<head>
<meta http-equiv="Content-Type" content="text/html; charset=iso-8859-1">
<form action="enviarmail.asp" method="post">
El asp:
<%@ LANGUAGE="VBSCRIPT" %>
<!DOCTYPE HTML PUBLIC "-//IETF//DTD HTML//EN">
<HTML>
<HEAD>
<meta http-equiv="Content-Type" content="text/html; charset=iso-8859-1">
<%
Dim myMail
Dim HTML
Set myMail = CreateObject("CDONTS.NewMail")
Remitente = Request.Form("email")
'Destino = "
[email protected]" 'Email de destino
Empresa = Request.Form("empresa")
Actividad = Request.Form("actividad")
Contacto = Request.Form("contacto")
Direccion = Request.Form("direccion")
CPostal = Request.Form("cpostal")
Poblacion = Request.Form("poblacion")
Provincia = Request.Form("provincia")
Pais = Request.Form("pais")
Email = Request.Form("email")
Telefono = Request.Form("telefono")
Comentarios = Request.Form("comentarios")
Publico = Request.Form("publico")
Controlado = Request.Form("controlado")
Contract = Request.Form("contract")
If Email = "" Then
Response.Redirect("contactar.html")
End If
'asi lo tiene microsoft y asi es como me ha funcionado aunque no sea valido por W
HTML = "<!DOCTYPE HTML PUBLIC ""-//IETF//DTD HTML//EN"">"
HTML = HTML & "<html lang=""es"">"
HTML = HTML & "<html>"
HTML = HTML & "<head>"
HTML = HTML & "<meta http-equiv=""Content-Type"""
HTML = HTML & "content=""text/html; charset=iso-8859-1"">"
HTML = HTML & "<title>TDCabanes</title>"
HTML = HTML & "</head>"
HTML = HTML & "<body bgcolor=""FFFFFF"">"
HTML = HTML & "<font size =""2"" face=""Arial"">"
HTML = HTML & "<div align=""center""><strong>FORMULARIO DE CONTACTO</strong></div>"
HTML = HTML & "<p><strong>Empresa : </strong>" & Empresa & "</p>"
HTML = HTML & "<p><strong>Actividad : </strong>" & Actividad & "</p>"
HTML = HTML & "<p><strong>Nombre de contacto : </strong>" & Contacto & "</p>"
HTML = HTML & "<p><strong>Dirección : </strong>" & Direccion & "</p>"
HTML = HTML & "<p><strong>Código Postal : </strong>" & CPostal & "</p>"
HTML = HTML & "<p><strong>Población : </strong>" & Poblacion & "</p>"
HTML = HTML & "<p><strong>Provincia : </strong>" & Provincia & "</p>"
HTML = HTML & "<p><strong>País : </strong>" & Pais & "</p>"
HTML = HTML & "<p><strong>Email : </strong>" & Email & "</p>"
HTML = HTML & "<p><strong>Teléfono : </strong>" & Telefono & "</p>"
HTML = HTML & "<p><strong>Comentarios : </strong>" & Comentarios & "</p>"
HTML = HTML & "</font>"
HTML = HTML & "</body>"
HTML = HTML & "</html>"
myMail.From="
[email protected]"
myMail.To="
[email protected]"
myMail.Subject="usuario web"
myMail.BodyFormat=0
myMail.MailFormat=0
myMail.Body=HTML
myMail.Send
set mymail=nothing
%>
</HEAD>
<BODY>Gracias por escribirnos.
</BODY>
</HTML>
Aqui lo dejo por si a alguien le sirve, gracias a los que en algún momento me han hechado una manito. :)