#!/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();
| |
 |
ECHOS
Reid Alexander, JoEllen DeVilbiss
Echos focuses on strengthening sightreading skills as
well as rhythm and note reading accuracy. The student is able to implement
the concepts of sightreading through the "echoing" of more than fifteen
musical examples.
Level I incorporates tuneful musical examples in keys
ranging from 0 to 3 sharps and flats, while Level II incorporates up
to 6 sharps and flats in both major and minor keys.
|
| |
 |
All musical examples are heard
first and then students have three opportunities to correctly play each
example. This program allows them to look at two separate pieces of music
and identify which piece is being played. It is one which will be a true
resource to the keyboard student.
|
| |
|
Windows CD-ROM: 1508CD
Single Station Price: $39.95
Lab Pack (5 stations) Price: $140.00
Site/Network License (24 stations) Price: $320.00
System requirements: Windows 98, 2000, XP
|
