use Win32::ODBC;
use CGI qw(:standard);
use CGI::Carp qw/fatalsToBrowser/;

 sub NoFeedback
  {for (1 or 0)
    if (!($db=new Win32::ODBC($DSN)))
      {
        print "Error connecting to Database\n";
        print "Error: " . Win32::ODBC::Error() . "\n";
      } #end if (!($db=new Win32::ODBC($DSN)))
$SqlStatement = $sql;
print "SqlStatement = $SqlStatement";
      if ($db->Sql($SqlStatement))
      {
        print "SQL failed.\n";
        print "Error: " . $db->Error() . "\n";
        if ($DebugMode)
          {
            print "<HR>$SqlStatement<HR>";
          } #end if ($DebugMode)
      } # end if ($db->Sql($SqlStatement))
else
      {
        while($db->FetchRow())
          {
            $Email = $db->Data();
            $MAilOut = $MAilOut.$Email."\n";
            print "Emailing: $Email\n<BR>";

    $db->Close();
    }#END sub NoFeedback