#!/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();
| |
 |
TAP IT II
G. David Peters
Tap It II includes much more difficult rhythm patterns including syncopation,
eighth and sixteenth note values as well as rests. Actual note heads
are introduced in this intermediate/early advanced level. Includes full
record keeping.
|
| |
Download Windows Demo
Download Mac OS X Demo
Download Mac OS 8.5-9.x Demo
|
Hybrid CD-ROM: 1509CD
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
|
