my $server_name = 'test_server';
my $database_name = 'test_db';
my $database_user = '';
my $database_pass = '';

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

	my $dbh = DBI->connect("dbi:ODBC:$DSN", {PrintError =>0, RaiseError =>1});

	eval {
		if (!$dbh) {			#testing connection to DB
			print "Could not connect to database: $DBI::errstr";
		}

		if($dbh) {
			print "Connected to DB!!";
		}

		my $sql = "INSERT INTO test_table VALUES ('test_env','$partner','$id','$filename','$date $time','$line_count')";		  		

		my $sth = $dbh->prepare($sql);		
		$sth->execute();
	};
	if($@) {
		$dbh->disconnect();
		QuitProgram("DB Failure: $@");
	}
	
	$dbh->disconnect();
}