$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/>";
    }
}