2 replies to this topic

[NaDaI]

Po ta dando um erro tao estranho aqui....nao to entende o que pode ser

error '80020009'
/mothership/newsletter/enviar_news.asp, line 81

Olha o codigo

assunto = request.Form("assunto") 
var_host = "mail.iflyer.com.br"
de_email = "mothership@iflyer.com.br" 
de_nome = "Mothership"
para_email = trim(reg("email"))
para_nome = trim(reg("usuario"))
  

Set Mail2 = Server.CreateObject("Persits.MailSender")
Mail2.Host = "mail.iflyer.com.br"
Mail2.From = de_email
Mail2.FromName = de_nome

Mail2.AddAddress para_email, "Mailing"
Mail2.Subject = assunto
Mail2.Body = strHTML
Mail2.IsHTML = True 
On Error Resume Next
Mail2.Send

if err = 0 Then
MSG = "E-mail enviado com sucesso para: "&request.Form("email")&"!<br>"
email_correto = email_correto + 1
else
MSG = "O e-mail não foi enviado com sucesso para "&request.Form("email")&"!</b><br>"
email_errado = email_errado + 1
end if
geral = geral + 1
response.write geral &"&nbsp;-&nbsp;"& MSG

response.write "<br><br>"
response.write "Número Total de E-mails:&nbsp;"&geral&"<br>"
response.write "Número de E-mails enviados:&nbsp;"&email_correto&"<br>"
response.write "Número de E-mails não enviados:&nbsp;"&email_errado&"<br>"

[Info_Tec]

A descrição do erro é somente essa?

[::: Mr.Crowley :::]

isso ai num chega nem perto de 81 linhas :S