DBI / loop

[Sven Bentlage]

Hi everyone!

I have a small problem which should be very easy to solve, but right now I just do not understand where the mistake is:
I`m using a small loop to fetch several hundred ids from a MySQL database, all of the ids are pushed into @id. After that the script fetches 1-3 email addresses for each id from another table. Directly after fetching the address it should send an email to each id (using only one of the max. 3 email addresses.

The script works not completely. It fetches all ids, but sends only 50% of the mails... and I do not understand why.(The code is posted below.)

If anyone could give me a tip what to change in ma script, I would be really grateful.
Cheers,
Sven

@Wiggins: Thank you very much for your fast help! As soon as I have a working DBI Version i`ll post it.

###################################

foreach $id(@id)
{
$k++;
my $dbh2 = DBI->connect( $dsn, $db_user, $db_pass ) || die "danger $DBI::errstr\n" ;
my $sth2 = $dbh2->prepare( "select etpa_cont_e, cemail, pemail from memberscopy where id='$id' " );
$sth2->execute();
while ( ($cont_e, $cemail, $pemail) = $sth2->fetchrow_array)
{

unless ($ETPA_cont_e eq "") { $recipient = $ETPA_cont_e }
else {
if ($pemail ne "") { $recipient = $pemail }
elsif ($cemail ne "") { $recipient = $cemail }
elsif (($pemail eq "") and ($cemail eq "")) {$recipient = "root\@svenbentlage.de"}

my $smtp = Net::SMTP->new($SMTP_Server);
die "could not connect to $SMTP_Server using $smtp\n" unless $smtp;

MIME::Lite->send('smtp', "SMTP_Server", Timeout=>90);


my $msg = MIME::Lite->new(
#To => $recipient,
To =>'[EMAIL PROTECTED]', #change to recipient
From =>'$sender,
ReplyTo => $reply_to,
Subject => $subject,
Type =>'multipart/related',
Encoding => '8bit'
);

$msg->attach(Type => 'text/html',
Data => qq{ $mailtext }
);
$msg->send();

$smtp->dataend();
$smtp->quit();
if ($k == 828) {die();}
}
$sth2->finish();
$dbh2->disconnect();

}
&thx();


--
To unsubscribe, e-mail: [EMAIL PROTECTED]
For additional commands, e-mail: [EMAIL PROTECTED]