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 &" - "& MSG response.write "<br><br>" response.write "Número Total de E-mails: "&geral&"<br>" response.write "Número de E-mails enviados: "&email_correto&"<br>" response.write "Número de E-mails não enviados: "&email_errado&"<br>"