Envio de email com Erro

[neguba 0]

tenhu um script em asp que envia dados do formulario por e0mail mas esta dando o seguinte erro!!!

 

 

Erro de compilação do Microsoft VBScript erro '800a0401'

 

Fim da instrução esperado

 

/enviar.asp, line 17

 

Mailer.AddRecipient = "opus-eclipse@opus-eclipse.com" , "webmail.opus-eclipse.com"

------------------------------------------------------^

segue o código!!

 

ASP

<%

'Declarando variveis

Dim sNameTo, sNameFrom, sEmailFrom, sText, sEmailTo, sAssunto

 

'Pegando os dados digitados nos campos e colocando em variaveis

sNameFrom = Request.Form("nome")

sEmailFrom = Request.Form("email")

sText = Request.Form("mensagem")

sAssunto = Request.Form("assunto")

 

'Cria o objeto

set mailer = server.createobject("SMTPsvg.Mailer")

Mailer.FromName = sNameFrom

Mailer.FromAddress = sEmailFrom

'Host para envio de emails

Mailer.RemoteHost = "smtp.opus-eclipse.com"

Mailer.AddRecipient = "opus-eclipse@opus-eclipse.com" , "webmail.opus-eclipse.com"

Mailer.Subject = sAssunto & " - E-mail"

 

'Monta a texto para o envio

strMsgHeader = sNameFrom & "(" & sEmailFrom & ") " & " quem enviou! " & vbCrLf & vbCrLf

strMsgFooter = sText

Mailer.BodyText = strMsgHeader & strMsgFooter

' Se for enviado redirecionar para obrigado.asp

if Mailer.SendMail then

Response.Redirect "obrigado.asp"

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

%>

[Ted k' 126]

coloque assim:

 

ASP

Mailer.AddRecipient = "opus-eclipse@opus-eclipse.com; webmail.opus-eclipse.com"