$dbh = DBI->connect('dbi:ODBC:ReportDB') or die "Error opening DB: $DBI::errstr\n";

$sth = $dbh->prepare("Select * FROM dbo_Bulletins Without Matching KnownBulletins");

$sth->execute()  or die "Couldn't execute query: $DBI::errstr\n";

$sth->finish();


my @results = ();

while (@results = $sth->fetchrow_array)
{	
	(

	 $sth = $dbh->prepare("insert into knownbulletins(BulletinID,CVENumber,Title,DatePosted,DateRevised,Supported,Summary,Issue,ImpactSeverityID,PreReqSeverityID,MitigationSeverityID,PopularityServerityID)
	 values('$results[0]','$results[1]', '$results[2]','$results[3]','$results[4]','$results[5]','$results[6]','$results[7]','$results[8]',$results[9],$results[10],$results[11],$results[12]);
	 
	 $sth->execute()  or die "Couldn't execute query: $DBI::errstr\n";

	 $sth->finish();