<%doc> URL TYPE 1 - /reviews/r0201_001.htm URL TYPE 2 - /reviews/pf_r0201_001.htm URL TYPE 3 - /reviews/ft/20020321/7823/Straight_Edge_Trio.html URL TYPE 4 - /reviews/pf/20020321/7823/Straight_Edge_Trio.html <%init> my $dbh = DBI->connect("DBI:mysql:allaboutjazz", 'vxweb', 'vx232web'); <%cleanup> $dbh->disconnect(); <%perl> my @args = split('/', $r->uri); my ($title, $album, $artist, $id, $month, $year, $seq, $sql, $stmt); if ($args[2] =~ /r(\d\d)(\d\d)_(\d+)\.(htm|html)/i) { $month = $1; $year = $2; $seq = $3; $sql = "SELECT album, artist, id FROM cd_review WHERE month = ? and year = ? and seq = ?"; $stmt = $dbh->prepare($sql); $stmt->execute($month, $year, $seq); ($album, $artist, $id) = $stmt->fetchrow_array(); $stmt->finish(); } elsif ($args[2] =~ /^(pf|ft)$/i and $args[3] =~ /^(\d+)$/ and $args[4] =~ /^(\d+)$/ and $args[5] =~ /^(\w+)\.(htm|html)$/i) { $id = $2; $sql = "SELECT album, artist FROM cd_review WHERE id = ?"; $stmt = $dbh->prepare($sql); $stmt->execute($id); ($album, $artist) = $stmt->fetchrow_array(); $stmt->finish(); } if ($album and $artist) { $title = ""; } else { $m->comp('/title.tmp', static_title => 1); } <% $title %>

SEARCH AADJWWW .. FREE NEWSLETTER ..

Bookmark Us! - Contact Us - Help Wanted - Advertise - Contests   <%doc> URL TYPE 1 - /reviews/r0201_001.htm URL TYPE 2 - /reviews/pf_r0201_001.htm URL TYPE 3 - /reviews/ft/20020321/7823/Straight_Edge_Trio.html URL TYPE 4 - /reviews/pf/20020321/7823/Straight_Edge_Trio.html <%init> my $dbh = DBI->connect("DBI:mysql:allaboutjazz", 'vxweb', 'vx232web'); <%cleanup> $dbh->disconnect(); <%perl> my @args = split('/', $r->uri); my ($title, $album, $artist, $id, $month, $year, $seq, $sql, $stmt); if ($args[2] =~ /r(\d\d)(\d\d)_(\d+)\.(htm|html)/i) { $month = $1; $year = $2; $seq = $3; $sql = "SELECT album, artist, id FROM cd_review WHERE month = ? and year = ? and seq = ?"; $stmt = $dbh->prepare($sql); $stmt->execute($month, $year, $seq); ($album, $artist, $id) = $stmt->fetchrow_array(); $stmt->finish(); } elsif ($args[2] =~ /^(pf|ft)$/i and $args[3] =~ /^(\d+)$/ and $args[4] =~ /^(\d+)$/ and $args[5] =~ /^(\w+)\.(htm|html)$/i) { $id = $2; $sql = "SELECT album, artist FROM cd_review WHERE id = ?"; $stmt = $dbh->prepare($sql); $stmt->execute($id); ($album, $artist) = $stmt->fetchrow_array(); $stmt->finish(); } if ($album and $artist) { $title = ""; } else { $m->comp('/title.tmp', static_title => 1); } <% $title %> NEW RELEASES Pete Heller Dirty Grooves- Nite:Life 014 (NRK) Rithma Music Fiction (Om Records) DJ Sage Drum & Bass Elements 01 (Moonshine) Darren Emerson & Mutiny Underwater Episode vol.2 (Underwater Records) Jamez Dreamchasing (Future Groove) Dave Ralph Resident Alien (System Recordings) Jaga Jazzist Stix (Ninja Tune) . <& /adsystem/rotate.tmp &> SEARCH AADJWWW .. FREE NEWSLETTER .. Bookmark Us! - Contact Us - Help Wanted - Advertise - Contests   <%args> $sort_type => 'album' <%init> my @Months = ('January', 'February', 'March', 'April', 'May', 'June', 'July', 'August', 'September', 'October', 'November', 'December'); my @tmp_time = localtime(time()); my $curmonth = $Months[$tmp_time[4]]; my $curyear = $tmp_time[5] + 1900; my $dbh = DBI->connect("DBI:mysql:aadj", 'vxweb', 'vx232web'); my ($id, $origfile, $album, $artist, $label, $cdyear, $author, $date_posted); $sort_type = 'album' if ! $sort_type; my $query_sql = qq { SELECT id, origfile, album, artist, label, cdyear, author, DATE_FORMAT(date_published, '%d-%b-%Y') As date_posted FROM cd_review WHERE (genre is null or genre <> 'Modern Jazz/Free Improvisation' or genre <> 'Big Band' or genre <> 'Ambient' or genre <> 'Beyond Jazz' or genre <> 'Electronica') and status = 10 and month = ? and year = ? ORDER BY ? }; my $sth = $dbh->prepare($query_sql); $sth->execute($tmp_time[4]+1, $tmp_time[5] - 100, $sort_type); <%cleanup> $dbh->disconnect(); NEW RELEASES Pete Heller Dirty Grooves- Nite:Life 014 (NRK) Rithma Music Fiction (Om Records) DJ Sage Drum & Bass Elements 01 (Moonshine) Darren Emerson & Mutiny Underwater Episode vol.2 (Underwater Records) Jamez Dreamchasing (Future Groove) Dave Ralph Resident Alien (System Recordings) Jaga Jazzist Stix (Ninja Tune) . CD Reviews: <% $curmonth . " " . $curyear %> Search our CD REVIEW database by Title, Artist, Label or Author Sort By:   >-- Album Title >-- Artist Name >-- Label >-- Year >-- Author >-- Date Posted % while ( ($id, $origfile, $album, $artist, % $label, $cdyear, $author, $date_posted) = $sth->fetchrow_array() ) { % } ALBUM TITLE ARTIST NAME LABEL YEAR AUTHOR POSTED <% $album %> <% $artist %> <% $label %> <% $cdyear %> <% $author %> <% $date_posted %> Search For A CD Review... Search by Artist Name, Record Label or Review Author <& /adsystem/rotate.tmp &> Bookmark Us! - Contact Us - Help Wanted - Advertise - Contests All material copyright © 2003 All About DJ and contributing writers. All rights reserved. Privacy Policy

Bookmark Us! - Contact Us - Help Wanted - Advertise - Contests

All material copyright © 2003 All About DJ and contributing writers. All rights reserved.

Privacy Policy