[carloshps]

Olá, pessoal.

Estou tentando configurar o script abaixo pq o mesmo está dando erro. Alguém pode me dizer o q está errado no código?

=*=*=*=*=*=*=*=*=*=*=*=*=*=*=*=*=*=*=*=*=*=*=*=*=*=*=*=*=

CODE

<%
'Declarando variveis
Dim sNameTo, sNameFrom, sEmailFrom, scor, sddd, stel, scid, sEmailTo, sText, sAssunto

'Pegando os dados digitados nos campos e colocando em variaveis
sNameFrom = Request.Form("nome")
sEmailFrom = Request.Form("email")
sEmailTo = "helenilton@tower.tur.br"
sNameTo = "Caldas Novas AABB Flat"
scor = Request.Form("corretor")
sddd = Request.Form("ddd")
stel = Request.Form("telefone")
scid = Request.Form("cidade")
sText = Request.Form("mensagem")
sAssunto = "Informações Online"
'Cria o objeto
 set mailer = server.createobject("SMTPsvg.Mailer")
 Mailer.FromName = sNameFrom
 Mailer.FromAddress = sEmailFrom
'Host para envio de emails
 Mailer.RemoteHost = "smtp.tower.tur.br"
 Mailer.AddRecipient sEmailTo, sNameTo
 Mailer.Subject = sAssunto  & " - E-mail"

'Monta a texto para o envio
 strMsgHeader = sNameFrom & "(" & sEmailFrom & ")" &  scor & sddd & stel & scid & vbCrLf & vbCrLf
 strMsgFooter = sText
 Mailer.BodyText = strMsgHeader & strMsgFooter
' Se for enviado redirecionar para enviado.html
 if Mailer.SendMail then
    Response.Redirect "enviado.html"
 else
' Se não for enviado mostra o erro que ocoreu
    Response.Write ("Ocorreu um erro.<BR>")
    Response.Write ("O Erro é " & Mailer.Response)
 end if
%>

[MVolpi]

Descreva qual o erro que esta dando, e mais facil para identificar-mos onde está o erro,

Verifica tambem se o componente encontra-se instalado no servidor ou na maquina que vc esta tentando rodar....

SMTPsvg.Mailer

[carloshps]

Volpi, a mensagem de erro é a seguinte:

=*=*=*=*=*=*=*=*=*=*=*=*=*=*=*=

Microsoft VBScript compilation error '800a0409'

Unterminated string constant

/enviar.asp, line 26

strMsgHeader = sNameFrom & "(" & sEmailFrom & ") " & scor & sddd & stel & scid & " & vbCrLf & vbCrLf
-----------------------------------------------------------------------------------------------------^

[MVolpi]

O erro ai e na concatenação com os Es comerciais..

[carloshps]

E como seria essa concanetação???

Não sei como alterá-la...

[MVolpi]

E como seria essa concanetação???

Não sei como alterá-la...

Tenta assim

CODE

strMsgHeader = sNameFrom & "(" & sEmailFrom & ")" & scor & sddd & stel & scid &  vbCrLf & vbCrLf