# declare libraries use CGI qw(:standard); use DBI; use strict; print "Content-Type: text/html\n\n"; print "Log Script"; # declare variables my $a = 000; my $b = 000; my $c = 'xxxxx'; my $d = 'xxxxxx'; # Connect to datasource my $dbh=DBI->connect('dbi:ODBC:','xxxxxxx','xxxxxxxx') or print "Couldn't connect to database: " . DBI->errstr . "\n\n"; # Log Info my $log = $dbh->prepare("Insert into .fp3 (, errstr. "\n\n"; $log->execute() or print "Couldn't execute INSERT statement: ". DBI->errstr. "\n\n"; # Get Journal URL my $geturl = $dbh->prepare("SELECT FROM .fp3 WHERE ='$d'") or print "Couldn't prepare SELECT statement: ". DBI->errstr. "\n\n"; $geturl->execute() or print "Couldn't execute SELECT statement: ". DBI->errstr. "\n\n"; my @data = $geturl->fetchrow_array(); my $jurl = $data[0]; # Set URL print $jurl . "\n

"; my $URL = $jurl; # print $URL; print $URL . "\n

" #### Couldn't prepare INSERT statement: [FileMaker][ODBC FileMaker Pro driver][FileMaker Pro]Connect failed (SQL-S1000)(DBD: st_prepare/SQLPrepare err=-1) #### Couldn't prepare SELECT statement: [FileMaker][ODBC FileMaker Pro driver][FileMaker Pro]Connect failed (SQL-S1000)(DBD: st_prepare/SQLPrepare err=-1) #### #Set Environmentals $ENV{USERNAME} = "Administrator"; $ENV{APPDATA} = "C:\\Documents and Settings\\Administrator.LRC\\Application Data"; $ENV{ALLUSERSPROFILE} = "C:\\Documents and Settings\\All Users"; $ENV{TMP} = "C:\\WINNT\\TEMP"; $ENV{USERDNSDOMAIN} = ""; $ENV{USERDOMAIN} = ""; $ENV{HOMEPATH} = "\\"; $ENV{HOMEDRIVE} = "C:"; $ENV{LOGONSERVER} = "\\\\";