Send(BillingTitle('Подписка на новости',2)); if($OOPSGlobal["SES"]->db->CheckFields("SUBSCRIBE","MAIL,STATUS,DATE","MAIL = '".$MAIL."'")) { $SUB = $OOPSGlobal["SES"]->db->ExtractObject(); $BODY->Send('

Такой адрес ['.$MAIL.'] уже есть в списке рассылки'); $BODY->Send('

Статус рассылки: '); switch($SUB->STATUS) { case 0: $BODY->Send('ожидает подтверждения.'); $BODY->Send('
Ожидание подтверждения: '.OOPSWorking(time()-$SUB->DATE,WORKING_TIME_LONG)); $BODY->Send('
Анулирование подписки через: '.OOPSWorking((60*60*24*7) - (time()-$SUB->DATE),WORKING_TIME_LONG)); $BODY->Send('

На данный адрес уже было выслано письмо со ссылкой для подтверждения подписки.'); $BODY->Send('

Вы можете отказаться от подписки перейдя по этой ссылке.'); break; case 1: $BODY->Send('активна.'); break; } $BODY->Send('$BILLING_BACK'); } else { $RC = OOPSCheckMailAddr($MAIL); switch($RC) { case MAILADDR_OK: $ID = $OOPSGlobal["SES"]->db->GetFreeID("SUBSCRIBE"); $OOPSGlobal["SES"]->db->Query("INSERT INTO SUBSCRIBE (ID,FIRST,LAST,COMP,WORK,MAIL,DATE) VALUES ('".$ID."','".$FIRST."','".$LAST."','".$COMP."','".$WORK."','".$MAIL."',".time().")"); $BODY->Send('

На указанный Вами адрес ['.$MAIL.'] выслано письмо для подверждения подписки. Если в течении недели Вы не подтвердите подписку по ссылке указанной в высланном Вам письме она будет автоматически отменена и Ваш адрес удален из списка рассылки.

Спасибо, что воспользовались нашим сервисом.$HR2'); $TEXT = "Произведено Оформление подписки на адрес [".$MAIL."] с адреса [".OOPSGetIP()."].\n\nНа данный адрес выслано письмо со ссылкой для подтверждения подписки. Если в течении недели подписка не будет подтверждена, то она автоматически будет удалена.\n"; $TEXT .= "\nИмя: ".$FIRST; $TEXT .= "\nФамилия: ".$LAST; $TEXT .= "\nОрганизация: ".$COMP; $TEXT .= "\nДолжность: ".$WORK; OOPSMailNotify("Произведено оформление подписки",$TEXT); $TEXT = "Кто-то, возможно Вы, оформили подписку на адрес [".$MAIL."].\n\nДля подтверждения подписки нажмите на эту ссылку:\n".$OOPSGlobal["URL"]."news/subscribe/ok/?MID=".$ID."\n\nЕсли в течении недели подписка не будет подтверждена, то она автоматически будет удалена."; OOPSMailer("Подписка на новости",$TEXT,$MAIL); break; case MAILADDR_SYNTAX: $BODY->Send('

ОШИБКА: Адрес ['.$MAIL.'] не существует.'); $BODY->Send('$BILLING_BACK'); break; case MAILADDR_DOMAIN_NAME: list($n,$d) = explode("@",$MAIL); $BODY->Send('

ОШИБКА: Доменное имя ошибочно ['.$d.'].'); $BODY->Send('$BILLING_BACK'); break; case MAILADDR_DOMAIN_EXISTS: list($n,$d) = explode("@",$MAIL); $BODY->Send('

ОШИБКА: Домена ['.$d.'] не существует.'); $BODY->Send('$BILLING_BACK'); break; case MAILADDR_MX_EXISTS: list($n,$d) = explode("@",$MAIL); $BODY->Send('

ОШИБКА: Домен ['.$d.'] не имеет почтового обменника.'); $BODY->Send('$BILLING_BACK'); break; case MAILADDR_NAME: list($n,$d) = explode("@",$MAIL); $BODY->Send('

ОШИБКА: Имя ['.$n.'] ошибочно.'); $BODY->Send('$BILLING_BACK'); break; case MAILADDR_LEN: list($n,$d) = explode("@",$MAIL); $BODY->Send('

ОШИБКА: Адрес ['.$MAIL.'] превышает 128 символов.'); $BODY->Send('$BILLING_BACK'); break; } } include_once("stop.inc"); ?>