sub new 
{
	my $type = shift;
	my %parm = @_;
	my $this = 
	{
		_server => undef,
		_database => undef,
		_hSession => undef,
		_hDatabase => undef,
	};
	bless $this, $type;	
}