sub db_connect {
    ($database,$user,$password) = @_;
    my $h = DBI->connect("dbi:mysql:database=$database;host=dbxxx.oneandone.co.uk", $user, $password) or printError("Unable to connect to $database" . $DBI::errstr);
    return $h;
}