use Win32::ODBC;
use DBI;
$DSN="Ptest";
$db = new Win32::ODBC("DSN=Ptest;UID=ptalerter;PWD=Ha55le12;");
if(!($db)){
print "Error connecting";
exit;
}
else
{
print "Hey you are connected \n";
}
 $SqlStatement = "insert into AllResults (Date,Login,Searchload,SearchCount,SearchResults,SearchSave,SearchDelete,SearchDetails,TaxLoad,TaxResults,TaxDetails,ClientAdd,CMALoad,CMASave,CMADelete,ClientDelete,Logout) Values ('getdate()', '1','2','3','4','5','6','7','8','9','10','11','12','13','14','15','16')";
 if ($db->Sql($SqlStatement)){
     print "SQL failed.\n";
     print "Error: " . $db->Error() . "\n";
     $db->Close();
     exit;
 }
 while($db->FetchRow()){
     undef %Data;
     %Data = $db->DataHash();
      print $db; 
     
 
 }
db->Close();
 
close file;