#!c:\perl\bin\perl

#Checks that Perl can talk to OBDC
#ZT, 30 Apr 2003
#Thanks be to http://www.roth.net/perl/odbc/faq/

use Win32::ODBC;
print "Found Win32::ODBC library.\n";

######### Update These ###############
$DSN = "SnarkDreams";    
$username = "";   
$password = "";   
######################################

if (!($db = new Win32::ODBC("DSN=$DSN;UID=$username;PWD=$password;"))){
    print "Error connecting to $DSN\n";
    print "Error: " . Win32::ODBC::Error() . "\n";
    exit;
}

$db->Close();

print "Connection: successful.\n";