sub insertRessource
{
	my $name = $_[0];
	my $entryid = $_[1];
	my $file = $_[2];
	my $mime = $_[3];
	my $sth = $dbh->prepare('insert into ressource (name, entryID ,data, mime) values (?,?,?,?)');
	$sth->execute($name, $entryid, $file, $mime) or die $!;
	$sth->finish;
	$dbh->disconnect;
}