$removed = 0;
$db = file("/home/deck/Documents/contacts/contacts.db");
$f = fopen("/home/deck/Documents/contacts/contacts.db","w");
if($f){
for($i=0;$i Removing $email.");
$removed = 1;
mail("deck","revoveEmail", $email);
}
else fwrite($f,$db[$i]);
}
fclose($f);
}else mail("deck","problem with mail registry", $errstr);
if($removed==1){
print("
Done.
");
}else{
print("
Sorry. Unable to locate that address.
Please Contact us and indicate
the email address you would like removed.
");
}
?>