Emails com caracteres esquisitos

[MaCeRo 0]

Bom galera estou com o seguinte problema, no meu site feito em ASP, existe página de contatos, e quando alguém manda uma mensagem para mim ela vem pro e-mail que defini como destino mas aparece da seguinte forma.

 

Envio de e-mail via site

 

Nome :

Setor : Ensino Médio

E-mail :

Telefone :

Cidade :

UF :

Paìs :

CEP :

Mensagem : por favor gostaria de saber quando vão estar abertas a inscrições para seleção de 2009. do Ensino Mèdio. obrigada

 

Todas as palavras que existem acentos ou ç aparecem caracteres estranhos, gostaria de saber se alguém ja teve o mesmo problema, se sabe como resolver. Estou utilizando o Dreamweaver CS3, no Dreamweaver 8 nunca tive este problema.

 

Fico no aguardo da ajuda de vocês.

 

Macero

[hargon 64]

Posta o código utilizado no envio do e-mail.

[MaCeRo 0]

<%

 

nome = Trim(Request.Form("nome"))

email = Trim(Request.Form("email"))

prefixo = Trim(Request.Form("prefixo"))

telefone = Trim(Request.Form("telefone"))

cidade = Trim(Request.Form("cidade"))

estado = Trim(Request.Form("estado"))

pais = Trim(Request.Form("pais"))

cep = Trim(Request.Form("cep"))

setor = Trim(Request.Form("setor"))

mensagem = Trim(Request.Form("mensagem"))

 

txtmsg = "<strong> Envio de e-mail via site </strong>" & vbcrlf & vbcrlf

txtmsg = txtmsg & vbcrlf & vbcrlf

txtmsg = txtmsg & "<table border='0'><tr><td><strong>Nome</td><td>:</strong> " & nome & vbcrlf

txtmsg = txtmsg & "</td></tr><tr><td><strong>Setor</td><td>: </strong>" & setor & vbcrlf

txtmsg = txtmsg & "</td></tr><tr><td><strong>E-mail</td><td>: </strong>" & email & vbcrlf

txtmsg = txtmsg & "</td></tr><tr><td><strong>Telefone</td><td>: </strong>" & prefixo & telefone & vbcrlf

txtmsg = txtmsg & "</td></tr><tr><td><strong>Cidade</td><td>: </strong>" & cidade & vbcrlf

txtmsg = txtmsg & "</td></tr><tr><td><strong>UF</td><td>: </strong>" & estado & vbcrlf

txtmsg = txtmsg & "</td></tr><tr><td><strong>País</td><td>: </strong>" & pais & vbcrlf

txtmsg = txtmsg & "</td></tr><tr><td><strong>CEP</td><td>: </strong>" & cep & vbcrlf

txtmsg = txtmsg & "</td></tr><tr><td valign=top><strong>Mensagem</td><td>: </strong>" & Mensagem & vbcrlf

txtmsg = txtmsg & "</td></tr></table>" & vbcrlf

 

 

 

Set Mailer = Server.CreateObject("SMTPsvg.Mailer")

 

Mailer.RemoteHost = "smtp2.locaweb.com.br"

 

Mailer.FromName = (nome)

 

Mailer.FromAddress = (email)

 

Mailer.AddRecipient "Colégio D. Pedro II", "dpedroii@dpedroii.com.br"

 

Mailer.Subject = setor

 

Mailer.BodyText = txtmsg

 

Mailer.ContentType = "text/html"

 

If Mailer.SendMail Then

Response.Write "<br><br><center><font face=arial size=3 color=#3D5B96><b> Sua mensagem foi enviada com sucesso!</center><p></font></b>"

Else

Response.Write "<br><br><center><font face=arial size=3 color=#3D5B96><b> Ocorreu um erro na transmissão do seu Email !</center><p></font></b>"

End If

 

Set Mailer = Nothing

 

%>

[hargon 64]

Acrescenta Mailer.CharSet = 2 e posta o resultado.

[MaCeRo 0]

Acrescenta Mailer.CharSet = 2 e posta o resultado.

 

Não funcionou :/

[hgb7 3]

Mailer.Body = response.charset = "iso-8859-1" & Mensagem

espero que ajude...

[MaCeRo 0]

Mailer.Body = response.charset = "iso-8859-1" & Mensagem

espero que ajude...

Também não funcionou. Não sei mais o que fazer. :/

[hargon 64]

As sugestões não estão funcionando em que sentido? Apresentam algum erro ou continua chegando da mesma forma?

[Ted k' 126]

<%@LANGUAGE="VBSCRIPT" CODEPAGE="65001"%>

[MaCeRo 0]

As sugestões não estão funcionando em que sentido? Apresentam algum erro ou continua chegando da mesma forma?

 

Não estão funcionando no sentido de estar chegando da mesma forma.