Ir para conteúdo

POWERED BY:

Arquivado

Este tópico foi arquivado e está fechado para novas respostas.

Gabriel Perboni

Problema de acentuação

Por , em ASP Clássico

Recommended Posts

Gabriel Perboni    0

Gabriel Perboni
Postado

Olá pessoal, é a primeira vez que recorro ao fórum por não achar uma solução por conta própria. Lá vai a dúvida:

 

Eu fiz um site em Flash onde tem um formulário de contato qu eaponta para um .ASP que envia um email para um endereço determinado. Um formmail normalzinho. O problema é que ao receber a mensagem no email, os caracteres acentuados (á é í ó ú ê ô ã ç etc) chegam todos estranhos, como caracteres especiais que deixam o texto ilegível.

 

Gostaria de saber se há uma solução para esse problema com acentos, quero que os acentos sejam enviados corretamente para o email ou sejam ignorados, o que não pode acontecer é ficar ilegível.

 

Abaixo o código ASP que estou usando:

 

NOTA IMPORTANTE: NÃO SOU PROGRAMADOR, SOU DESIGNER, POR ISSO SEJAM CUIDADOSOS NA EXPLICAÇÃO HEHEHE O CARA AQUI É MEIO BURRALDO EM ASP ;)

 

<%

 

Destino = "email@server.com"

servidor = "smtp.server.com"

titulo = "Formulario de contato"

 

 

 

Origen = Request("email")

nome = Request("nome")

tel = Request("tel")

Mensagem = Request("mensagem")

 

 

 

 

Set Mail = Server.CreateObject("Persits.MailSender")

 

 

strBody = strBody & "<font face='Verdana, Arial, Helvetica, sans-serif' size='2' color='#555555'>"

strBody = strBody & "Nome: "

strBody = strBody & "<b>" & nome & "</b><br><br>"

strBody = strBody & "E-mail : "

strBody = strBody & "<b>" & Origen & "</b><br><br>"

strBody = strBody & "Meu Telefone: "

strBody = strBody & "<b>" & tel & "</b><br><hr><br>"

strBody = strBody & "Minha mensagem : <br>"

strBody = strBody & Mensagem & chr(10)

strBody = strBody & "</font>"

 

 

Mail.Host = servidor

Mail.Port = 25

Mail.From = "email@server.com"

Mail.FromName = Email

Mail.Subject = titulo

Mail.Body = strBody

Mail.IsHTML = True

Mail.AddAddress Destino

 

On Error Resume Next

 

Mail.Send

 

 

 

If Err <> 0 Then

Response.Write "popup.mensagem=Erro ao enviar, por favor enviar mais tarde " & Err.Description

Else

Response.Write "popup.mensagem=Mensagem enviada com sucesso!"

End If

 

Set Mail = Nothing

 

%>

Compartilhar este post

Link para o post
Compartilhar em outros sites

Davide Ricardo    0

Davide Ricardo
Postado

eu estou com o mesmo problema.. e também fiz um post..eu acho que isto tem haver com questão de enconding.,.ou da base dados, ou do servidor, ou da própria página... também estou a espera de resolução...

Compartilhar este post

Link para o post
Compartilhar em outros sites

<%Rafael%>    0

<%Rafael%>
Postado

Em ASP você pode ter outro problema, a acentuação com erro vinda do Flash...Solução?No asp, por via das dúvidas, utilize:

Response.Charset="ISO-8859-1"

E, no Flash, utilize:

System.useCodePage = true;

Abraços!

Compartilhar este post

Link para o post
Compartilhar em outros sites

Davide Ricardo    0

Davide Ricardo
Postado

pessoal já corrigi o erro...bastava colocar em cada página akela meta tag... mas tinha que fazer em todas as páginas isto<html><head><meta http-equiv="Content-Type" content="text/html; charset=iso-8859-1" />...</head><body>...</body></html>obrigado na mesma...

Compartilhar este post

Link para o post
Compartilhar em outros sites

Leo Lemos    0

Leo Lemos
Postado

Estou com o mesmo problema, só que o flash 8 não reconheceu o System.useCodePage = true;

 

O que faço???

 

Solucionado ja.

 

system.useCodepage = true; e não system.useCodePage = true;

Compartilhar este post

Link para o post
Compartilhar em outros sites
Ir para a lista de tópicos ASP Clássico
×

Informação importante

Ao usar o fórum, você concorda com nossos Termos e condições.

  Aceito