ODBC update and Perl

Works like a champ!...


# -------------------------

use Win32::ODBC;

my $sql_query = <<__END__;
UPDATE UserNDS SET "Message Server"='SERVER01.OU.O' 
WHERE "Message Server"='SERVER02.OU.O'
__END__


if( !($db = new Win32::ODBC( "Default NDS Database" )) ) {
    die "Error connecting: " . Win32::ODBC::Error() . "n";
}


if( ($db->Sql($sql_query)) ) {
    print "Error submitting SQL Statement: " . $db->Error() .
"n";
} else {
    print "Done."
}

# -------------------------