$db->sqlInsert("commentaire",
		      ref_emetteur  => "1",
		      ref_article   => "$article",    
		      question      => "$question",
		      text          => "$text",
		      date  	    => "$date $time");
	    

##</code><code>##

sub sqlInsert {
        my $table = shift || '';
	my(%data)=@_;

	my($names,$values);
	$dbh||=sqlConnect();
	foreach (keys %data) {
		if (/^-/) {
                    $values.="\n  ".$data{$_}.",";
                    s/^-//;
                    
                    }
		else {
                    $values.="\n  ".$dbh->quote($data{$_}).","; }
                    $names.="$_,";
	}

	chop($names);
	chop($values);

	my $sql="INSERT INTO $table ($values) VALUES ($names)\n";
	#$sql = $dbh->quote ($sql);
	print "Content-type: text/html\n\n";
	print "$sql <br />";

	if(!$dbh->do($sql)) {
		my $err=$dbh->errstr;
	}
}


##</code><code>##

INSERT INTO MyDB=HASH(0xa22d970) ( 'text', 'question', 'ref_emetteur', 'date', NULL) VALUES (,1,commentaire,

this is the description
,2013-05-31 15:16:29) 

##</code><code>##

   $db->sqlInsert("commentaire",
		      ref_article   => "$article", 		      
		      question      => "$question",
		      text          => "$text",
		      ref_emetteur  => "1",   
		      date  	    => "$date $time");
	    
sub sqlInsert {
        my $table = shift || '';
	my(%data)=@_;
        print "Content-type: text/html\n\n";
        while ( my ($key, $value) = each(%data) ) {
        print "$value<br/>";
    }
}
	 

##</code><code>##

text
date
ref_article
ref_emetteur