[Resolvido] quebra de linha e texto zuado

[brunovoze 0]

Galera, td na paz??

Seguinte, desenvolvi um form em flash, que carrega informações para um asp e envia p/ um e-mail.

Só que como não sou pro em asp, estou c dificuldade em dois lances...

Preciso fazer c que a variavel "Mensagem" possa quebrar linhas, ou seja, se o usuário apertou o enter no formulário, qndo abrir meu e-mail a msg deve aparece c quebra de linha. Sei que é o comando é esse (chr(13),"<br>") mas não estou sabendo onde e como usá-lo...

E tb como faço para que o texto fique certinho, Atualmente digito uma palavra c acentos e vai td zuado... ex. Açaí = A%c*a5i (exemplo)(rsss)

Segue o script...

CODE

<%

Dim iMail, Nome, Email, Telefone, Assunto, Mensagem

Nome = Request.form("t_nome")

Email = Request.form("t_email")

Telefone = Request.form("t_fone")

Assunto = Request.form("t_assunto")

Mensagem = Request.form("t_msg")

meu_email = "contato@timebless.net"

corpo = "Nome:" & Nome & "<BR>"

corpo = corpo & "Email:" & Email & "<BR>"

corpo = corpo & "Telefone:" & Telefone & "<BR>"

corpo = corpo & "Assunto:" & Assunto & "<BR>"

corpo = corpo & "Mensagem:" & Mensagem & "<BR>"

Set iMail = CreateObject("CDONTS.NewMail")

iMail.From = email

iMail.To = meu_email

iMail.Subject = "Contato Site"

iMail.MailFormat = 0

iMail.BodyFormat = 0

iMail.Body = corpo

iMail.Send

Set iMail = nothing

 

If Err <> 0 Then

Response.Write "status=Problemas com servidor. Tente mais tarde."

Else

Response.Write "status=Enviado com sucesso! Logo entraremos em contato."

End If

%>

 

Vlw, galera!!

[Ted k' 126]

Mensagem = Replace(Request.form("t_msg"), Chr(13) & Chr(10), "<br>")

[brunovoze 0]

Pô, vlw pela força, tava crente qndo vi sua linha de comando, que iria rolar... Mas não funcionou.. Acho q deve ser alguma coisa lá na Locaweb q faz c q isso não funcione... Se alguém já passou por esse problema, conseguiu resolver e puder dar uma mão......

Vlw a todos!

Abraços.

[Ted k' 126]

qual é o erro que apresenta pra você?

[brunovoze 0]

Ele não exibe nenhum erro em específico, apenas na caixa de entrada do e-mail a msg ainda chega sem as quebas...

Tanto é que no arquivo flash, ele lê a variável que está na pág asp, dizendo que a msg foi envada c sucesso. Logo imagino que ele está compreendendo o script corretamente, só que a Locaweb deve ter algum tipo de bloqueio, sei lá...

Caso queira, dê uma olhada no site. timebless.net vai ver que aparentemente está td correndo bem... Só q dependendo de sua conexão terá q ter um pouco de paciência, já que o site está em desenvolvimento e está dando um bugzinho em carregar alguns componentes, mas a parte do formulário está beleza, tirando esse pau da quebra de linha...

Acesse o site e no menu a esquerda entre em Contato. Digite qq coisa lá e verá q ela é enviada c/ ''sucesso''(rs)

 

Vlw msm pelo help!

Abraços.

[DSerma 19]

Tente assim:

 

Mensagem = Replace(Request.form("t_msg"),CHR(13), "<br>")

 

Caso nao de certo.. tente isso:

 

<script>
var mensagem = <%=Request.Form("t_msg")%>;
var msg_env = mensagem.replace(/\n/g, "<br>");
document.write(msg_env);
</script>

Abraços...

[jrcardozo 4]

você definiu isso no flash:

System.UseCodePage = true

essa atribuição deverá corrigir os caracteres

 

eu faria assim

Mensagem = Replace(Request.form("t_msg"),vbNewLine, "<br>")

[brunovoze 0]

Maravilha!!

Quero agradeçer aqui ao Darkdemo, Jonathan e Ted K.

Além da variável usecodepage no fla, também fiz como o Darkdemo sugeriu na linha asp!!!

Havia testado apenas com o usecode e ainda com o parâmetro passado pelo Ted, mas por algum motivo esse acréscimo >>>Chr(10)<<< fez c que não rolasse corretamente... Mas vlw msm assim Ted!

E qnto aos acentos, virgulas e blá blá blá, graças a alteração com a variavel no fla (System.useCodePage = true) tá mais que resolvido! Vlw pela força galera!

 

Abraço a todos!