#!/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();
| |
 |
CLEF NOTES
G. David Peters
CLEF NOTES is designed to improve speed in identifying music notes as they are placed on the staff. Choose treble, bass, alto
or tenor clef or many combinations of these clefs for added instructional challenge. Ten notes must be correctly  identified
consecutively to complete a session. Includes full record keeping for up to 500 students on ONE computer! NEW FEATURE offers
flexibility in choosing notes and optional inclusion of ledger lines.
|
| |
 |
 |
| |
Download Mac OS X Demo
Download Mac OS 8.5-9.x Demo
Download Windows Demo
|
Hybrid CD-ROM: 1105CD
Single Station Price: $39.95
Lab Pack (5 stations) Price: $140.00
Site/Network License (24 stations) Price: $320.00
Sys. requirements: Win 98, 2000, XP, Mac OS 8.5-9.2, 10.1-10.x
|
