###### 
$SQL = "Select * from bademails ORDER BY ID DESC";
&Do_SQL;
while ($pointer = $sth->fetchrow_hashref) {
	$bademail = $pointer->{'email'};
	

	$SQL2 = "Select * from $alertstable where email LIKE '%$bademail%'";
	&Do_SQL2;
	
	$item = $pointer2->{'type'};
	$alertype = $pointer2->{'alertype'};
	$emaillist = $pointer2->{'email'};
	$ID = $pointer2->{'ID'};



	@emails = split /~~~/,$emaillist;
	foreach $address (@emails) {

	print "$ID<Br>\n";

    $elist = "";
   	if ($address eq $bademail) {
   		$elist = $elist . $address . "~~~";
   	}
		
   }


   $SQL3 = "UPDATE $alertstable SET email='$elist' WHERE type='$item' and alerttype='$alerttype'";
   &Do_SQL3;
   print "Updated $ID<Br>\n";
	
	
	} # end while
#######################