my $temp_date = $date.' '.$time;
if($DB_insert =~ /true/i) {
	my $DSN = "driver={SQL Server};server=$server_name;database=$database_name;uid=$database_user;pwd=$database_pass;";  

	eval {
		my $dbh = DBI->connect("dbi:ODBC:$DSN");
		DBI->trace(2,'C:\db_test_log.txt');		

		if (!$dbh) {			#testing connection to DB
			print "Could not connect to database: $DBI::errstr";
		}
		
		my $sql = "INSERT INTO RecordCount VALUES (?,?,?,?,?,?)";
		my $sth = $dbh->prepare($sql);
		$sth->bind_param(1, $env);
		$sth->bind_param(2, $partner);
		$sth->bind_param(3, $id);
		$sth->bind_param(4, $filename);
		$sth->bind_param(5, $temp_date);
		$sth->bind_param(6, $line_count);
	
		$sth->execute();
		$dbh->disconnect();
	};
	if($@) {		
		print "DB Failure: $@";
	}
}