(Resolvido) Problemas com quebra de linha

[+.jr_Designer.+]

Boa tarde galera,

É o seguinte: tenho um formulário de contato que está enviando a mensagem "corretamente", o problema é que a quebra de linha não tá funcionando. Já tentei de várias maneiras:

1 - mensagem = replace(mensagem, chr(10), "<br />")

2 - mensagem = replace(mensagem, chr(13), "<br />")

3 - mensagem = replace(mensagem, vbcrlf , "<br>")

Meu script

nome = request.QueryString("nome")
cidade = request.QueryString("cidade")
telefone = request.QueryString("telefone")
celular = request.QueryString("celular")
email = request.QueryString("email")
mensagem = replace(Request.QueryString("mensagem"), chr(10), "<br />")
'mensagem = replace(mensagem, chr(10), "<br>")
'mensagem = replace(mensagem, vbcrlf , "<br>")
mensagem = "Mensagem enviada por: "&nome&"<br />Telefone: "&telefone&"<br />Celular: "&celular&"<br />Cidade: "&cidade&"<br  />E-mail: "&email&"<br /><br /><br />"&mensagem

%>

<%
sch = "http://schemas.microsoft.com/cdo/configuration/"
Set cdoConfig = Server.CreateObject("CDO.Configuration")


'Variaveis
Dim meuservidorsmtp
Dim minhacontaautenticada
Dim minhasenhaparaenvio
Dim emailorigem
Dim emaildestino

'Abaixo seguem algumas definicoes de variaveis para o envio de seu formulario. Por favor preencha os campos abaixo.

meuservidorsmtp = "smtp.meudominio.com.br" ' Informacoes so seu servidor SMTP
minhacontaautenticada = "conta@meudominio.com.br" ' conta de e-mail utilizada para enviar
minhasenhaparaenvio = "************" ' senha da conta de e-mail
emailorigem = "conta@meudominio.com.br" ' e-mail que indica de onde partiu a mensagem
emaildestino = "conta@meudominio.com.br" ' e-mail que vai receber as mensagens do formulario

'Fim da definição manual de parâmetros.

cdoConfig.Fields.Item(sch & "sendusing") = 2
cdoConfig.Fields.Item(sch & "smtpauthenticate") = 1
cdoConfig.Fields.Item(sch & "smtpserver") = meuservidorsmtp
cdoConfig.Fields.Item(sch & "smtpserverport") = 25
cdoConfig.Fields.Item(sch & "smtpconnectiontimeout") = 30
cdoConfig.Fields.Item(sch & "sendusername") = minhacontaautenticada
cdoConfig.Fields.Item(sch & "sendpassword") = minhasenhaparaenvio
cdoConfig.fields.update
Set cdoMessage = Server.CreateObject("CDO.Message")
Set cdoMessage.Configuration = cdoConfig

cdoMessage.BodyPart.Charset = "iso-8859-1"
cdoMessage.From = emailorigem
cdoMessage.To = emaildestino
cdoMessage.Subject = "Formulario de Contato"
cdoMessage.ReplyTo = Request("emailrem")


cdoMessage.HTMLBody = mensagem

cdoMessage.Send

Set cdoMessage = Nothing
Set cdoConfig = Nothing

%>

Editado Fevereiro 10, 2011 por +.jr_Designer.+

[thicomp]

Cara, você já tentou fazer assim

replace(mensagem, chr(13), VbCrLf)

[+.jr_Designer.+]

Cara, você já tentou fazer assim

replace(mensagem, chr(13), VbCrLf)

Cara, assim também não rola!

[+.jr_Designer.+]

Pessoal,

Problema resolvido.