Quebra de linha no código ASPEmail

[ilipe 0]

Olá!!!

Tenho este código que puxa variáveis do flash e manda pro e-mail...

 

CODE

nome=request.Form("formNome")

email=request.Form("formEAspEmail")

assunto=request.Form("formAssunto")

sexo=request.Form("formSexo")

interesses=request.Form("formInteresses")

news=request.Form("formNews")

mensagem=request.Form("formMsg")

 

'suas informaçoes aqui

seuemail="meuemail@hotmail.com"

 

'digite aqui o seu smtp server

strHost = "localserver"

 

'cria objeto

Dim AspEmail

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

'colocando o smpt

AspEmail.Host = strHost

 

AspEmail.From = email 'de quem envia

AspEmail.FromName = nome 'nome de quem envia

AspEmail.AddAddress seuemail

AspEmail.Subject = assunto

' texto da mensagem

AspEmail.Body = "Olá, você recebeu uma mensagem do flash.<br>Nome: "&nome&"<br>EAspEmail: "&EAspEmail&"<br>Sexo :"&sexo&"<br>Assunto: "&Assunto&"<br>Interesses: "&Interesses&"<br>Newsletter: "&news&"<br> Mensagem: "&mensagem

 

 

 

on error resume next ' pega erros

AspEmail.Send ' envia mensagem

if err.number <> 0 then 'se ocorreu erro

response.Write("retorno=Erro ao enviar.")

else

response.Write("retorno=Enviado com sucesso.")

end If

 

Set AspEmail = Nothing 'finaliza o objeto'

%>

 

O lance é que não consigo separar estas variáveis usando quebra de linhas.

Por exemplo: preencho o form flash e mando p o e-mail só que quando vejo o e-mail aparece assim:

 

Olá, você recebeu uma mensagem do flash.<br>Nome: cxbcbx<br>EAspEmail: <br>Sexo :Masculino<br>Assunto: cbxbcxxcb<br>Interesses: artes,<br>Newsletter: Sim<br> Mensagem: cxbbxcbcx xcbxbcxbcxbcx xcbcxbbxc

 

e quero que apareça um embaixo do outro assim:

 

Olá, você recebeu uma mensagem do flash.

 

Nome: cxbcbx

Sexo :Masculino

 

e assim por diante.

 

Isso é possível???

Se der em php ou outro tipo de asp tb serve...

 

Obrigado!!!

[Ted k' 126]

converta seu código para receber HTML

 

use isso:

 

AspEmail.IsHTML = True

[ilipe 0]

OK Funcionou!!!! Obrigado pela dica...agora tem um probleminha:::

acentuação não aparece....aparece assim quando tem "ç":

Orçamento - era pra ser orçamento...

E agora?!?!?!

[ilipe 0]

Com esta linha dá quebra de linha entre os tópicos...beleza...funcionou!...obrigado...

Mas tem um problema também aqui...na variável mensagem do flash tem uma caixa de texto para a pessoa escrever o que ela quiser...só que se ela dá quebra de linha lá, no e-mail aparece tudo na mesma linha...

[Ted k' 126]

usar assim

 

Replace(Variavel, Chr(13), "<br>")