#!/usr/bin/perl -w
use DBI;
use Date::Calc qw(Today);
use CGI qw(:standard);
print "Content-type: text/plain\n\n";
$theDB = DBI ->connect ('DBI:mysql:ecsmedia', 'ecsmedia', 'S3cq8esL') or die("Cannot connect.\n");
($year,$month,$day) = Today();
$theProduct = param("filename");
$theDate = "$month/$day/".substr($year, -2);
$theReferrer = $ENV{'HTTP_REFERER'};
$Query = "SELECT * FROM productCounters WHERE Product='$theProduct' AND Date='$theDate'";
$result = $theDB->prepare($Query) or die("error preparing SQL\n");
$result->execute() or die("error executing SQL\n");
if (@row = $result->fetchrow_array) {
$newCount = $row[2] + 1;
$newReferrer = $row[3].",".$theReferrer;
$Query = "UPDATE productCounters SET Count=$newCount, Referrers='$newReferrer' WHERE Product='$theProduct' AND Date='$theDate'";
$theDB->do($Query) or die("Invalid update");
}
else{
$Query = "INSERT INTO productCounters (Product, Date, Count, Referrers) VALUES ('$theProduct','$theDate','1','$theReferrer')";
$theDB->do($Query) or die("Invalid insert");
}
$result->finish();
$theDB->disconnect();
| |
 |
KEYBOARD CHORDS
G. David Peters
Keyboard Chords presents qualities of simple chords. The program is
composed of a tutorial on major, minor, diminished, and augmented chords;
a chord spelling drill; a keyboard drill; and a test. The drill-and-practice
programs allow the user to select the inversion (root, 1st, or 2nd)
and the clef (treble or bass) for the drill. A score is displayed after
the student correctly answers ten consecutive items. The test randomly
selects the inversion and clef for each item, and the student's score
is displayed. The program also features student evaluation and record
keeping. Requires MIDI. Windows version requires either a sound card
or MIDI.
|
| |
Download Windows
Demo
Download Mac Demo
|
Hybrid CD-ROM: 1157CD
Single Station Price: $39.95
Lab Pack (5 stations) Price: $140.00
Site/Network License (24 stations) Price: $320.00
System requirements: Win 98, 2000, XP Mac OS 8.5-9.2, 10(in classic mode)
|
