$msg .= $cgi->table({-border => 1, bgcolor => $c1, style => "Color: $c2;"}, $cgi->Tr(form_table_data($select_msg, 20, $user, $user)));

##</code><code>##

sub form_table_data {
	my ($statement, $max_number_of_rows, @parameters) = @_;
	
	$statement->execute(@parameters);
	my $rows = $statement->fetchall_arrayref(undef, $max_number_of_rows);
	my $table_data = [];
	push @$table_data, $cgi->td($rows->[$_]) for (0 .. $#$rows);
	return $table_data;	
}