So I scaned all your other posts in this thread and all I found was that you said in the root one that you are using MS SQL Server 2000 (I admit asking you for the value of @@VERSION would be pointless, there is no need for that level of detail in this case) and ... in one of the responses ... that you are using DBD::ODBC.

I asked you to tell us the VERSIONS of the modules! And ... guess what ... they are nowhere to be found in the whole thread. Maybe the bug (if there is any) was alerady fixed in a newer version than the one you have. Maybe not, but how do we know?

BTW, want some code? OK

use DBI;

our $db;
our %sp;
sub open_db {
    return if $db and $db->{'Active'};
    Log "\nConnecting to the database";
    eval {
        $db = DBI->connect('dbi:ODBC:Driver=SQL Server;Server=JobVIPeR
+;Database=XxxXXXxX', 'xxx', 'xxx',
            {PrintError => 0,RaiseError => 1,LongReadLen => 65536,Auto
+Commit => 0});
    };

    if (! $db) {
        Log("\tCannot connect to the database! : $DBI::errstr");
        return;
    }
    Log "\tConnected";
    prepare_sps();
}

sub prepare_sps {
    $sp{SetDirty} = $db->prepare('EXEC dbo.SetInt ?, 1');
#...
}

#...
    $sp{SetDirty}->execute($objname."_dirty");
#...
[download]

    my $import = $db->prepare_cached('EXEC dbo.ImportClient ?, ?, ?, ?
+, ?, ?, ?, ?, ?, ?, ?, ?, ?, ?, ?');
    db_error("compiling ImportClient",$db) if !$import;
    my $WasNew = 0;
    $import->bind_param_inout( 15, \$WasNew, 1);
#...
        my $id = 0;
        $import->bind_param(++$id, $_) for @{$rec->{fields}}{@fields};
        if ($import->execute()) {
            if ($WasNew) {
                $new++;
            } else {
                $updated++;
            }
        } else {
            db_error("updating client '$rec->{fields}->{client_desc}'"
+,$db,1);
            $import->finish();
            $incorrect++;
        }
#...
[download]

Does this help?