#!/opt/perl/bin/perl

use Win32::ODBC;
use strict;

my $outdir="//Cmdsrv02/EPIC_Users/Group_Share/Database/meetings/scripts/";

#MAKE CONNECTION AND QUERY ACCESS DATABASE 
my $connstring = "DRIVER=Microsoft Access Driver (*.mdb);DBQ=//Cmdsrv02/EPIC_Users/Group_Share/Contacts/contacts.mdb";
my $db = new Win32::ODBC($connstring);
$db->Sql("SELECT * FROM groups_in_disciplines");

#OPEN EXTERNAL LOGFILE
open(LOGFILE, ">$outdir/events.txt");
while ($db->FetchRow()) {
my $discipline_id = "discipline_id"; my $discipline = "discipline_id";
$discipline_id=$db->Data($discipline_id);
my $db2 = new Win32::ODBC($connstring);
$db2->Sql("SELECT * FROM groups_in_disciplines");
while ($db2->FetchRow()) {
$discipline = $db2->Data($discipline);
print LOGFILE $discipline, " "; # $discipline_id works
}
$db2->Close();
}
close LOGFILE;
$db->Close();
exit;