//error_reporting(0); if(!empty($em)) { $file="asmart-remove.csv"; // add user to the list $fp = fopen ($file,"a+"); fputs($fp,"<$em>;".date("d/m/Y")."\n"); fclose ($fp); $status="$em has been removed."; unset($em); } else if($product=="activesmart" || $activesmart=="on") { $file="asmart-list.csv"; $listname="Active SMART announcements mailing list"; } else if($ntpager=="on") { $file="ntpager-list.csv"; $listname="Ariolic NTPager announcements mailing list"; } else $file="list.csv"; $email=trim(strtolower($subscr_email)); $username=$subscr_name; $is_deleted=false; function test_mail($char) { if(eregi("^[_\.0-9a-z-]+@([0-9a-z][-0-9a-z\.]+)\.([a-z]{2,3}$)",$char)) return true; return false; } function check_dupe($email) { global $file; $f_email=0; // field number of Email in CSV file $f_username=1; // field number of Username in CSV file $found_dupe=false; $fp = fopen ($file,"r"); while($data = fgetcsv ($fp, 1000, ",")) { if($data[$f_email]==$email) { $found_dupe=true; break; } } fclose ($fp); return $found_dupe; } if(count($HTTP_POST_VARS)>1) { if(!empty($email)) { if(test_mail($email)) { if(!empty($product)) { if($subscribe=="add") { if(!check_dupe($email)) { // add user to the list $fp = fopen ($file,"a+"); fputs($fp,"$username;<$email>;".date("d/m/Y")."\n"); fclose ($fp); $status="$email added to $listname"; unset($subscr_name); unset($subscr_email); } else $status="The email address $email already exists in $listname"; } else if($subscribe=="remove") { // remove user from the list $fcontents = file($file); for($i=0;$i$email removed from $listname"; else $status="The email address $email was not found in $listname"; } } else $status="Please choose a product and try again"; } else $status="The email address $email is not valid. Please check it and try again."; } else $status="Please enter your email and try again"; } ?> Ariolic Software - Newsletter include"inc/header.inc";?> Home » Company » Newsletter About Us Press Room Clients Newsletter Contact Us Newsletter Welcome to the Ariolic Newsletter! Subscribe to our announcements newsletters to receive information on new products and releases. if(!empty($status)) print''.$status.'' ?> Your name: > *Your email address: > I am a registered customer: *Please choose newsletter: Select Active SMART Active SMART SCSI version NTPager NetSend 9x PopupMe Tiny Message *Add or remove your email address: Add me to your newsletter Remove me from your newsletter Note: We do not give out customer information. include"inc/copyfooter.inc";?> include"inc/topmenu.inc";?> include"inc/footer.inc";?>
Home » Company » Newsletter
About Us
Press Room
Clients
Newsletter
Contact Us
Welcome to the Ariolic Newsletter! Subscribe to our announcements newsletters to receive information on new products and releases.
'.$status.'
Note: We do not give out customer information.