Доработать скрипт, выполняющий почтовую рассылку.

Добрый день!

Необходимо доработать скрипт:

________________________________________________________________

<%

var recSet, recSet1;

conn = Server.CreateObject("ADODB.Connection");

conn.Open(DSN);

var mail_id = Request.QueryString("mail_id");

var query = "SELECT subject, text from mails where id="+mail_id;

recSet = conn.Execute(query);

var query1 = "SELECT id, email from emails";

recSet1 = conn.Execute(query1);

var mm = Server.CreateObject("Persits.MailSender");

mm.Host = "robots.1gb.ru";

mm.From = SendMail_FromEmail;

mm.FromName = "сайт.ru";

mm.AddCustomHeader("Content-Type: text/plain; charset=windows-1251");

mm.AddCustomHeader("Content-Transfer-Encoding: 8bit");

mm.Subject = recSet("subject");

mm.IsHTML = 1;

mm.Body = recSet("text");

while (!recSet1.EOF) {

mm.AddAddress(recSet1("email"));

conn.Execute("IF NOT EXISTS (SELECT * FROM sendmail where mail_id="+mail_id+" AND email_id="+recSet1("id")+") INSERT INTO sendmail (mail_id,email_id) values("+mail_id+","+recSet1("id")+") ");

recSet1.MoveNext();

}

conn.Close();

mm.Send();

Response.Redirect("mails.asp");

%>

________________________________________________________________

так, чтобы рассылка шла не по всем адресам сразу (как сейчас), а поочередно на каждый адрес отдельно

Оплата 500 wmr после проверки доработки.

_Ivan_ добавил 12.08.2009 в 12:06

Исполнитель найден, тема закрыта