<cfparam name="url.genre" default="Alternative">

<CFIF Not IsDefined("url.adminprv")>
	<CFQUERY name="log" datasource="#Request.dsname#" username="#Request.dsuser#" password="#Request.dspass#">
		INSERT INTO site_visitors
		(
			visit_timestamp, 
			visit_page, 
			visit_referer, 
			visit_address, 
			visit_user, 
			visit_agent
		)
		VALUES
		(
			GETDATE(),
			'/music/review/recordsbasic.cfm?genre=#url.genre#',
		<cfif IsDefined("cgi.http_referer")>
			'#cgi.http_referer#',
		<cfelse>
			'N/A',
		</cfif>
		<cfif IsDefined("cgi.remote_addr")>
			'#cgi.remote_addr#',
		<cfelse>
			'N/A',
		</cfif>
		<cfif IsDefined("cgi.remote_user")>
			'#cgi.remote_user#',
		<cfelse>
			'N/A',
		</cfif>
		<cfif IsDefined("cgi.http_user_agent")>
			'#cgi.http_user_agent#'
		<cfelse>
			'N/A'
		</cfif>
		)
	</CFQUERY>
	<CFSET firstflag = "">
	<CFSET restflag = "">
<CFELSE>
	<CFSET firstflag = "?adminprv=true">
	<CFSET restflag = "&adminprv=true">
</CFIF>

<cfswitch expression="#url.genre#">
	<cfcase value="alternative">
		<cfset genre_title = "Alternative">
		<cfset feed_url = "http://ax.phobos.apple.com.edgesuite.net/WebObjects/MZStore.woa/wpa/MRSS/newreleases/sf=143441/genre=000020000/limit=100/rss.xml?partnerId=30&LS_PARAM=http%3A%2F%2Fclick.linksynergy.com%2Ffs-bin%2Fstat%3Fid%3Dm3DGqqZ%2FGWc%26offerid%3D78941%26type%3D3%26subid%3D0%26tmpid%3D1826%26RD_PARM1%3D">

	</cfcase>
	<cfcase value="blues">
		<cfset genre_title = "Blues">
		<cfset feed_url = "http://ax.phobos.apple.com.edgesuite.net/WebObjects/MZStore.woa/wpa/MRSS/newreleases/sf=143441/genre=800000000/limit=100/rss.xml?partnerId=30&LS_PARAM=http%3A%2F%2Fclick.linksynergy.com%2Ffs-bin%2Fstat%3Fid%3Dm3DGqqZ%2FGWc%26offerid%3D78941%26type%3D3%26subid%3D0%26tmpid%3D1826%26RD_PARM1%3D">

	</cfcase>
	<cfcase value="country">
		<cfset genre_title = "Country">
		<cfset feed_url = "http://ax.phobos.apple.com.edgesuite.net/WebObjects/MZStore.woa/wpa/MRSS/newreleases/sf=143441/genre=080000000/limit=100/rss.xml?partnerId=30&LS_PARAM=http%3A%2F%2Fclick.linksynergy.com%2Ffs-bin%2Fstat%3Fid%3Dm3DGqqZ%2FGWc%26offerid%3D78941%26type%3D3%26subid%3D0%26tmpid%3D1826%26RD_PARM1%3D">

	</cfcase>
	<cfcase value="dance">
		<cfset genre_title = "Dance">
		<cfset feed_url = "http://ax.phobos.apple.com.edgesuite.net/WebObjects/MZStore.woa/wpa/MRSS/newreleases/sf=143441/genre=000100000/limit=100/rss.xml?partnerId=30&LS_PARAM=http%3A%2F%2Fclick.linksynergy.com%2Ffs-bin%2Fstat%3Fid%3Dm3DGqqZ%2FGWc%26offerid%3D78941%26type%3D3%26subid%3D0%26tmpid%3D1826%26RD_PARM1%3D">

	</cfcase>
	<cfcase value="electronic">
		<cfset genre_title = "Electronic">
		<cfset feed_url = "http://ax.phobos.apple.com.edgesuite.net/WebObjects/MZStore.woa/wpa/MRSS/newreleases/sf=143441/genre=040000000/limit=100/rss.xml?partnerId=30&LS_PARAM=http%3A%2F%2Fclick.linksynergy.com%2Ffs-bin%2Fstat%3Fid%3Dm3DGqqZ%2FGWc%26offerid%3D78941%26type%3D3%26subid%3D0%26tmpid%3D1826%26RD_PARM1%3D">

	</cfcase>
	<cfcase value="folk">
		<cfset genre_title = "Folk">
		<cfset feed_url = "http://ax.phobos.apple.com.edgesuite.net/WebObjects/MZStore.woa/wpa/MRSS/newreleases/sf=143441/genre=008000000/limit=100/rss.xml?partnerId=30&LS_PARAM=http%3A%2F%2Fclick.linksynergy.com%2Ffs-bin%2Fstat%3Fid%3Dm3DGqqZ%2FGWc%26offerid%3D78941%26type%3D3%26subid%3D0%26tmpid%3D1826%26RD_PARM1%3D">

	</cfcase>
	<cfcase value="pop">
		<cfset genre_title = "Pop">
		<cfset feed_url = "http://ax.phobos.apple.com.edgesuite.net/WebObjects/MZStore.woa/wpa/MRSS/newreleases/sf=143441/genre=000800000/limit=100/rss.xml?partnerId=30&LS_PARAM=http%3A%2F%2Fclick.linksynergy.com%2Ffs-bin%2Fstat%3Fid%3Dm3DGqqZ%2FGWc%26offerid%3D78941%26type%3D3%26subid%3D0%26tmpid%3D1826%26RD_PARM1%3D">

	</cfcase>
	<cfcase value="rock">
		<cfset genre_title = "Rock">
		<cfset feed_url = "http://ax.phobos.apple.com.edgesuite.net/WebObjects/MZStore.woa/wpa/MRSS/newreleases/sf=143441/genre=000010000/limit=100/rss.xml?partnerId=30&LS_PARAM=http%3A%2F%2Fclick.linksynergy.com%2Ffs-bin%2Fstat%3Fid%3Dm3DGqqZ%2FGWc%26offerid%3D78941%26type%3D3%26subid%3D0%26tmpid%3D1826%26RD_PARM1%3D">

	</cfcase>
	<cfcase value="soul">
		<cfset genre_title = "Soul">
		<cfset feed_url = "http://ax.phobos.apple.com.edgesuite.net/WebObjects/MZStore.woa/wpa/MRSS/newreleases/sf=143441/genre=000400000/limit=100/rss.xml?partnerId=30&LS_PARAM=http%3A%2F%2Fclick.linksynergy.com%2Ffs-bin%2Fstat%3Fid%3Dm3DGqqZ%2FGWc%26offerid%3D78941%26type%3D3%26subid%3D0%26tmpid%3D1826%26RD_PARM1%3D">

	</cfcase>
	<cfcase value="hiphop">
		<cfset genre_title = "Hip Hop">
		<cfset feed_url = "http://ax.phobos.apple.com.edgesuite.net/WebObjects/MZStore.woa/wpa/MRSS/newreleases/sf=143441/genre=000080000/limit=100/rss.xml?partnerId=30&LS_PARAM=http%3A%2F%2Fclick.linksynergy.com%2Ffs-bin%2Fstat%3Fid%3Dm3DGqqZ%2FGWc%26offerid%3D78941%26type%3D3%26subid%3D0%26tmpid%3D1826%26RD_PARM1%3D">

	</cfcase>
	<cfcase value="insp">
		<cfset genre_title = "Inspirational">
		<cfset feed_url = "http://ax.phobos.apple.com.edgesuite.net/WebObjects/MZStore.woa/wpa/MRSS/newreleases/sf=143441/genre=000008000/limit=100/rss.xml?partnerId=30&LS_PARAM=http%3A%2F%2Fclick.linksynergy.com%2Ffs-bin%2Fstat%3Fid%3Dm3DGqqZ%2FGWc%26offerid%3D78941%26type%3D3%26subid%3D0%26tmpid%3D1826%26RD_PARM1%3D">

	</cfcase>
	<cfcase value="jazz">
		<cfset genre_title = "Jazz">
		<cfset feed_url = "http://ax.phobos.apple.com.edgesuite.net/WebObjects/MZStore.woa/wpa/MRSS/newreleases/sf=143441/genre=004000000/limit=100/rss.xml?partnerId=30&LS_PARAM=http%3A%2F%2Fclick.linksynergy.com%2Ffs-bin%2Fstat%3Fid%3Dm3DGqqZ%2FGWc%26offerid%3D78941%26type%3D3%26subid%3D0%26tmpid%3D1826%26RD_PARM1%3D">

	</cfcase>
	<cfcase value="movie">
		<cfset genre_title = "Soundtrack">
		<cfset feed_url = "http://ax.phobos.apple.com.edgesuite.net/WebObjects/MZStore.woa/wpa/MRSS/newreleases/sf=143441/genre=000200000/limit=100/rss.xml?partnerId=30&LS_PARAM=http%3A%2F%2Fclick.linksynergy.com%2Ffs-bin%2Fstat%3Fid%3Dm3DGqqZ%2FGWc%26offerid%3D78941%26type%3D3%26subid%3D0%26tmpid%3D1826%26RD_PARM1%3D">

	</cfcase>
</cfswitch>

<cftry>
	<cffeed properties="rssProps" query="rssResults" source="#feed_url#" action="read">
	<cfcatch>
		<cfset rssResults = QueryNew("rssLink,title,categoryLabel")>
	</cfcatch>
</cftry>

<!---cfset rssDoc = XmlParse(cfhttp.FileContent, false, "http://67.199.2.19/music/rss1.0.dtd")--->
<!---cfset rss_items = XmlSearch(rssDoc, "/rss/channel/item")--->

<CFQUERY name="album_notes" datasource="#Request.dsname#" username="#Request.dsuser#" password="#Request.dspass#">
	SELECT 	album_id,
			album_title,
			album_date,
			album_rating,
			album_desc
	FROM 	album_notes
	ORDER BY album_title
</CFQUERY>

<CFQUERY name="album_reviews" datasource="#Request.dsname#" username="#Request.dsuser#" password="#Request.dspass#">
	SELECT 	review_id,
			artist_name, 
			album_name, 
			release_date, 
			copyright_text, 
			image50_url, 
			review_text, 
			album_link
	FROM 	album_reviews
	WHERE	feature_flag = 1
			AND active_flag = 1
			AND genre_name = '#url.genre#'
	ORDER BY artist_name, album_name
</CFQUERY>

<!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.0 Transitional//EN">
<HTML>
<HEAD>
<META HTTP-EQUIV="Content-Type" CONTENT="text/html; charset=iso-8859-1">
<META NAME="Author" CONTENT="Richard Vance">
<LINK rel="stylesheet" href="../../includes/13d.css">
<TITLE><cfoutput>The Tuesday Apple Record Review - #genre_title# New Releases Summary</cfoutput></TITLE>

<script language="JavaScript">

</script>

<style type="text/css">
	.artistCell { color: black; font-family: Trebuchet MS, Arial; font-size: 8pt; font-weight: normal; }
	.albumCell  { color: black; font-family: Trebuchet MS, Arial; font-size: 8pt; font-weight: bold; }
	.rightsCell { color: black; font-family: Trebuchet MS, Arial; font-size: 8pt; font-style: italic; }
	.msgCell  { color: #CB897D; font-family: Trebuchet MS, Arial; font-size: 8pt; font-weight: bold; }
	.headerCell  { font-family: Trebuchet MS, Arial; font-size: 9pt; font-weight: bold; }
	.noteCell  { color: #CB897D; font-family: Trebuchet MS, Arial; font-size: 8pt; font-weight: normal; }
	.genretitle { font-family: Trebuchet MS, Arial; font-size: 16pt; }
</style>

</HEAD>
<BODY onload="" TEXT="black" BGCOLOR="#7EE766" LINK="gray" VLINK="gray" ALINK="red">

<map name="headermap">
	<area shape="rect" coords="40,25,635,65" href="http://www.13d.org/" alt="The Thirteenth Dimension">
</map>

<table align="center" width="675" cellspacing="0" cellpadding="0" border="0">
	<tr>
		<td width="675" colspan="3"><img src="../../bubbleheader2008_top.jpg" usemap="#headermap" border="0" width="675" height="100"></td>
	</tr>
	<tr>
		<td width="18" background="../../bubblemap2008_left.jpg"><img src="/images/spacer.gif" width="18" height="40"></td>
		<td width="640" align="center" bgcolor="white" class="bubbletext">
			<span class="bubblezing">Delighting the masses</span>
			<div class="bubbletitle">The Tuesday Apple Record Review</div>
		</td>
		<td width="17" background="../../bubblemap2008_right.jpg"><img src="/images/spacer.gif" width="17" height="40"></td>
	</tr>
	<tr>
		<td width="675" colspan="3"><img src="../../bubblemap2008_bottom.jpg" width="675" height="40"></td>
	</tr>
</table>

<br>

<table width="96%" cellspacing="0" cellpadding="5" style="border: 2px solid #E7CF65;">
	<tr>
		<td bgcolor="#E7CF65" style="font-size: 9pt; font-weight: bold; padding: 0;">
			&nbsp;&nbsp;
			<CFOUTPUT>
				<a href="recordsbasic.cfm?genre=alternative#restflag#">Alternative</a>&nbsp;&nbsp;
				<a href="recordsbasic.cfm?genre=blues#restflag#">Blues</a>&nbsp;&nbsp;
				<a href="recordsbasic.cfm?genre=country#restflag#">Country</a>&nbsp;&nbsp;
				<a href="recordsbasic.cfm?genre=dance#restflag#">Dance</a>&nbsp;&nbsp;
				<a href="recordsbasic.cfm?genre=electronic#restflag#">Electronic</a>&nbsp;&nbsp;
				<a href="recordsbasic.cfm?genre=folk#restflag#">Folk</a>&nbsp;&nbsp;
				<a href="recordsbasic.cfm?genre=insp#restflag#">Inspirational</a>&nbsp;&nbsp;
				<a href="recordsbasic.cfm?genre=pop#restflag#">Pop</a>&nbsp;&nbsp;
				<a href="recordsbasic.cfm?genre=rock#restflag#">Rock</a>&nbsp;&nbsp;
				<a href="recordsbasic.cfm?genre=hiphop#restflag#">Hip Hop</a>&nbsp;&nbsp;
				<a href="recordsbasic.cfm?genre=soul#restflag#">Soul</a>&nbsp;&nbsp;
				<a href="recordsbasic.cfm?genre=jazz#restflag#">Jazz</a>&nbsp;&nbsp;
				<a href="recordsbasic.cfm?genre=movie#restflag#">Soundtrack</a>&nbsp;&nbsp;
				&nbsp;&nbsp;|&nbsp;&nbsp;
				<a href="records.cfm?genre=#url.genre##restflag#">View #genre_title# releases in scroller (IE only)</a>
			</CFOUTPUT>
		</td>
	</tr>
	<tr>
		<td valign="top" style="padding: 0;">
			<table width="100%" bgcolor="white" style="border-top: 2px solid #E7CF65; border-bottom: 2px solid #E7CF65;">
				<tr>
					<td align="left" valign="center" class="genretitle">&nbsp;&nbsp;<cfoutput>#genre_title#</cfoutput></td>
					<td rowspan="2" width="5"><img src="../../images/spacer.gif" width="5" height="35"></td>
					<cfif album_reviews.RecordCount gt 0>
						<td rowspan="2" width="65" align="left" class="headerCell">Featured<br>Reviews</td>
					</cfif>
					<cfoutput query="album_reviews">
						<cfif image50_url eq "">
							<cfset cover_img = "nocover_53x53.jpg">
						<cfelse>
							<cfset cover_img = image50_url>
						</cfif>
						<td rowspan="2" width="60"><a href="review.cfm?review_id=#review_id##restflag#"><img src="#cover_img#" width="50" height="50" border="0"></a></td>
						<td rowspan="2" width="150" align="left" valign="top">
							<a class="artistCell" href="review.cfm?review_id=#review_id##restflag#">#artist_name#</a><br>
							<a class="albumCell" href="review.cfm?review_id=#review_id##restflag#">#album_name#</a>
						</td>
					</cfoutput>
				</tr>
				<tr>
					<td align="left" style="font-size: 9pt; font-weight: bold;">
						&nbsp;&nbsp;
						New Releases&nbsp;&nbsp;
						<a href="reviews.cfm?genre=<cfoutput>#url.genre##restflag#</cfoutput>">Album Reviews</a>&nbsp;&nbsp;
					</td>
				</tr>
			</table>
		</td>
	</tr>
	<tr>
		<td>
			<table id="releaseTable" cellspacing="8" width="100%">
				<cfset colnum = 1>
					<cfoutput query="rssResults">
						<a href="#rsslink#" target="_blank">#title#</a> (#categoryLabel#)<br />
					</cfoutput>
				<!---cfloop index="idx" from="1" to="#ArrayLen(rss_items)#">
					<cfset myrating = "">
					<cfset mynote = "">
					<cfset item_rating = "">
					<cfset item_note = "">
					<cfset item_title = XmlSearch(rssDoc, "/rss/channel/item[#idx#]/title")>
					<cfset item_covers = XmlSearch(rssDoc, "/rss/channel/item[#idx#]/itms:coverArt")>
					<cfset artist_name = XmlSearch(rssDoc, "/rss/channel/item[#idx#]/itms:artist")>
					<cfset artist_link = XmlSearch(rssDoc, "/rss/channel/item[#idx#]/itms:artistLink")>
					<cfset album_name = XmlSearch(rssDoc, "/rss/channel/item[#idx#]/itms:album")>
					<cfset album_link = XmlSearch(rssDoc, "/rss/channel/item[#idx#]/itms:albumLink")>
					<cfset item_rights = XmlSearch(rssDoc, "/rss/channel/item[#idx#]/itms:rights")>
					<cfset item_date = XmlSearch(rssDoc, "/rss/channel/item[#idx#]/itms:releasedate")>

					<cfif IsDate(item_date[1].XmlText)>
						<cfset week_date = DateAdd("d", 1 - DayOfWeek(Now()), Now())>
						<cfif item_date[1].XmlText eq DateFormat(Now(), "mmmm d, yyyy")>
							<cfset mynote = "Released Today">
						<cfelseif DateCompare(ParseDateTime(item_date[1].XmlText), week_date, "d") eq 0>
							<cfset mynote = "Released This Week">
						</cfif>
					</cfif>
					
					<cfoutput query="album_notes">
						<cfif item_title[1].XmlText eq album_title>
							<cfset item_rating = album_rating>
							<cfset item_note = album_desc>
							<cfset note_break = Find(Chr(13), item_note)>
							<cfif note_break gt 0>
								<cfset item_note = Left(item_note, note_break - 1)>	
							</cfif>
						</cfif>
					</cfoutput> 
					
					<cfif item_rating eq "4">
						<cfset mynote = "Recommended!">
					<cfelseif item_rating eq "5">
						<cfset mynote = "A 13D Favorite!">
					</cfif>

					<cfif colnum eq 1>
						<tr>
					</cfif>
					
					<cfoutput>
						<td valign="top" width="25%" <cfif Val(item_rating) gte 4>bgcolor="white"</cfif>>
							<table align="left" cellspacing="0" cellpadding="1" width="100%" style="font-size: 8pt;">
								<tr>
									<td width="100" valign="top"><img src="#item_covers[1].XmlText#" width="100" height="100"></td>
									<td valign="top">
										<cfif mynote neq "">
											<div class="msgCell">#mynote#</div>
										</cfif>
										<a class="artistCell" target="_blank" href="#artist_link[1].XmlText#">#artist_name[1].XmlText#</a>
										<br>
										<a class="albumCell" target="_blank" href="#album_link[1].XmlText#">#album_name[1].XmlText#</a>
										<br>
										<div class="rightsCell">#item_rights[1].XmlText#</div>
										<cfif item_note neq "">
											<div class="noteCell">#item_note#</div>
										</cfif>
									</td>
								</tr>
							</table>
						</td>
					</cfoutput>	
					
					<cfset colnum = colnum + 1>
					<cfif colnum eq 5>
						</tr>
						<cfset colnum = 1>
					</cfif>
				</cfloop--->
			</table>
		</td>
	</tr>
</table>


<div></div>

<P>
<HR WIDTH="100%">

<cfinclude template="/includes/controlpanel.html">

</BODY>
</HTML>

