<%@ Language=VBScript %> <%Option Explicit Response.Buffer=False Response.CacheControl = "no-cache" On Error Resume Next dim PAGE_NAME PAGE_NAME = "store_detail.asp"%> <% Response.Redirect "store.asp" %> <% dim objRS_Release dim objRS_Distro dim objRS_Band dim objRS_Label dim objRS_MP3 dim objRS_Price dim objRS_Track_Listing dim objRS_Review dim objRS_Merch dim objRS_Merch_Sizes dim objRS_Merch_Other dim objRS_Distro_Other dim objRS_Distro_Other_Label dim objRS_Release_Other dim objRS_Other_Items dim mode dim Catalog_ID dim BAND_ID dim arrSizes, arrOptions dim arrReleaseFormat, Format dim i dim asterisk dim size dim bOutOfStock bOutOfStock = false asterisk = false mode = UCase(Request("mode")) Catalog_ID = UCase(Request("Catalog_ID")) If len(trim(mode)) = 0 or len(trim(Catalog_ID)) = 0 Then Response.Redirect "store.asp" If mode="SPECIAL" Then Response.Redirect "store_" & Catalog_ID & ".asp" ElseIf mode = "RIVAL" Then set objRS_Release = Get_RELEASE_By_CATALOG_ID(Catalog_ID) If (objRS_Release.BOF AND objRS_Release.EOF) Then ' Record not found Response.Redirect "store.asp" End If set objRS_Band = Get_BAND_By_BAND_ID(objRS_Release("BAND_ID")) set objRS_MP3 = Get_MP3_By_CATALOG_ID(Catalog_ID) set objRS_Track_Listing = Get_TRACK_LISTING_By_CATALOG_ID(Catalog_ID) set objRS_Review = Get_REVIEW_By_CATALOG_ID_and_TRACK_NUMBER(Catalog_ID, "0") BAND_ID = objRS_Release("BAND_ID") arrReleaseFormat = Split(objRS_Release("FORMAT"), ",") ElseIf mode = "DISTRO" Then set objRS_Distro = Get_DISTRO_By_CATALOG_ID(Catalog_ID) If (objRS_Distro.BOF AND objRS_Distro.EOF) Then ' Record not found Response.Redirect "store.asp" End If set objRS_Label = Get_LABEL_By_LABEL_ID(objRS_Distro("LABEL_ID")) BAND_ID = objRS_Distro("BAND_ID") If objRS_Distro("IN_STOCK") = "N" OR objRS_Distro("QUANTITY") <= 0 Then bOutOfStock = true End If ElseIf mode = "MERCH" Then set objRS_Merch = Get_MERCH_By_CATALOG_ID(Catalog_ID) If (objRS_Merch.BOF AND objRS_Merch.EOF) Then ' Record not found Response.Redirect "store.asp" End If set objRS_Band = Get_BAND_By_BAND_ID(objRS_Merch("BAND_ID")) set objRS_Price = Get_PRICE_By_FORMAT(objRS_Merch("MERCH_TYPE")) If len(trim(objRS_Merch("SIZES"))) > 0 Then set objRS_Merch_Sizes = Get_MERCH_By_PARENT_ITEM(Catalog_ID) If not (objRS_Merch_Sizes.BOF AND objRS_Merch_Sizes.EOF) Then bOutOfStock = false Else If objRS_Merch_Sizes.RecordCount = 0 Then bOutOfStock = true End If arrSizes = Split(objRS_Merch("SIZES"), ",") End If If objRS_Merch("IN_STOCK") = "N" Then bOutOfStock = true BAND_ID = objRS_Band("BAND_ID") If len(trim(objRS_Merch("OPTIONS"))) > 0 Then arrOptions = Split(objRS_Merch("Options"), ",") End If Else Response.Redirect "store.asp" End If set objRS_Other_Items = server.CreateObject("ADODB.Recordset") With objRS_Other_Items.Fields .Append "CATALOG_ID", adBSTR .Append "MODE", adBSTR .Append "BAND_ID", adBSTR .Append "TITLE", adBSTR .Append "IMAGE", adBSTR .Append "TYPE", adBSTR .Append "DESCRIPTION", adBSTR End With objRS_Other_Items.Open set objRS_Merch_Other = Get_MERCH_By_BAND_ID(BAND_ID) set objRS_Distro_Other = Get_DISTRO_By_BAND_ID(BAND_ID) set objRS_Release_Other = Get_RELEASE_By_BAND_ID(BAND_ID) If mode = "DISTRO" Then set objRS_Distro_Other_Label = Get_DISTRO_By_LABEL_ID(objRS_Distro("LABEL_ID")) While not objRS_Distro_Other_Label.EOF If Catalog_ID <> objRS_Distro_Other_Label("CATALOG_ID") Then objRS_Other_Items.AddNew objRS_Other_Items("CATALOG_ID") = objRS_Distro_Other_Label("CATALOG_ID") objRS_Other_Items("MODE") = "DISTRO" objRS_Other_Items("BAND_ID") = objRS_Distro_Other_Label("BAND_ID") objRS_Other_Items("TITLE") = objRS_Distro_Other_Label("RECORD_TITLE") objRS_Other_Items("IMAGE") = objRS_Distro_Other_Label("IMAGE_LOCATION") & objRS_Distro_Other_Label("IMAGE_FRONT") objRS_Other_Items("TYPE") = objRS_Distro_Other_Label("MERCH_TYPE") objRS_Other_Items("DESCRIPTION") = objRS_Distro_Other_Label("DESCRIPTION") objRS_Other_Items.Update End If objRS_Distro_Other_Label.MoveNext Wend End If While not objRS_Release_Other.EOF If Catalog_ID <> objRS_Release_Other("CATALOG_ID") Then objRS_Other_Items.AddNew objRS_Other_Items("CATALOG_ID") = objRS_Release_Other("CATALOG_ID") objRS_Other_Items("MODE") = "RIVAL" objRS_Other_Items("BAND_ID") = objRS_Release_Other("BAND_ID") objRS_Other_Items("TITLE") = objRS_Release_Other("TITLE") objRS_Other_Items("IMAGE") = objRS_Release_Other("COVER_ART_FILE_LOCATION") & objRS_Release_Other("COVER_ART_FILE_NAME") objRS_Other_Items("TYPE") = objRS_Release_Other("FORMAT") objRS_Other_Items("DESCRIPTION") = objRS_Release_Other("DESCRIPTION") objRS_Other_Items.Update End If objRS_Release_Other.MoveNext Wend While not objRS_Distro_Other.EOF If Catalog_ID <> objRS_Distro_Other("CATALOG_ID") Then objRS_Other_Items.AddNew objRS_Other_Items("CATALOG_ID") = objRS_Distro_Other("CATALOG_ID") objRS_Other_Items("MODE") = "DISTRO" objRS_Other_Items("BAND_ID") = objRS_Distro_Other("BAND_ID") objRS_Other_Items("TITLE") = objRS_Distro_Other("RECORD_TITLE") objRS_Other_Items("IMAGE") = objRS_Distro_Other("IMAGE_LOCATION") & objRS_Distro_Other("IMAGE_FRONT") objRS_Other_Items("TYPE") = objRS_Distro_Other("MERCH_TYPE") objRS_Other_Items("DESCRIPTION") = objRS_Distro_Other("DESCRIPTION") objRS_Other_Items.Update End If objRS_Distro_Other.MoveNext Wend While not objRS_Merch_Other.EOF If Catalog_ID <> objRS_Merch_Other("CATALOG_ID") Then objRS_Other_Items.AddNew objRS_Other_Items("CATALOG_ID") = objRS_Merch_Other("CATALOG_ID") objRS_Other_Items("MODE") = "MERCH" objRS_Other_Items("BAND_ID") = objRS_Merch_Other("BAND_ID") objRS_Other_Items("TITLE") = objRS_Merch_Other("MERCH_TITLE") objRS_Other_Items("IMAGE") = objRS_Merch_Other("IMAGE_LOCATION") & objRS_Merch_Other("IMAGE_FRONT") objRS_Other_Items("TYPE") = objRS_Merch_Other("FORMAT_NAME") objRS_Other_Items("DESCRIPTION") = objRS_Merch_Other("DESCRIPTION") objRS_Other_Items.Update End If objRS_Merch_Other.MoveNext Wend If not objRS_Other_Items.EOF Then objRS_Other_Items.MoveFirst set objRS_Release_Other = nothing set objRS_Merch_Other = nothing set objRS_Distro_Other = nothing %> Rivalry Records

<% If mode="RIVAL" Then %> <% for each Format in arrReleaseFormat set objRS_Price = Get_PRICE_By_FORMAT(Format) %> "> "> <% Next %> <% ElseIf mode="MERCH" Then %> <% ElseIf mode="DISTRO" Then %> <% End If %> <% If not (objRS_Other_Items.BOF AND objRS_Other_Items.EOF) Then %> <% End If %>
" WIDTH=190 HEIGHT=190 ALT=""> <% If len(trim(objRS_Release("PURCHASE_URL_1"))) > 0 Then %> <% End If %>
<% for each Format in arrReleaseFormat set objRS_Price = Get_PRICE_By_FORMAT(Format)%> <%=objRS_PRICE("FORMAT_NAME") & " :"%> <% If instr(1, UCASE(CStr(objRS_Release("DESCRIPTION"))), "COLORED VINYL") AND (instr(1, CStr(Format), "CD") = 0) AND (instr(1, CStr(Format), "DD") = 0) Then %> Colored Vinyl <% End If %>
Make payments with PayPal - it's fast, free and secure! <% Response.Write("

") %> <% Next set objRS_Price = nothing %>
"> ">Download now on iTunes

All CD, vinyl, or digital purchases include a FREE download including all mp3s and full album artwork! Download here.

IMPORTANT NOTES, PLEASE READ BEFORE ORDERING:
1. All prices INCLUDE POSTAGE. (The small "shipping" charge of $.50 to $2.50 upon checkout is actually to cover paypal fees, and is purely based on the total amount of your order).
2. All orders from OUTSIDE OF THE U.S.A. must order at least 2 items.
3. All orders from OUTSIDE OF THE U.S.A. please make sure to select the correct price from the drop down menu - (CAN/MEX) for Canada or Mexico and (WORLD) for anywhere else outside North America.
4. You should receive your order in 1-3 weeks, depending on order load at Rivalry and in the USPS mail system.

<%=objRS_Band("NAME")%> <%=" - """ & objRS_Release("TITLE") & """"%> <%=" (" & objRS_Release("CATALOG_ID") & ")"%>

<%=objRS_Release("DESCRIPTION")%>

<% If len(objRS_Merch("IMAGE_BACK")) > 0 Then %> <% Else %> <% End If %>
" WIDTH=190 HEIGHT=190 ALT=""> " WIDTH=190 HEIGHT=190 ALT=""> 

IMPORTANT NOTES, PLEASE READ BEFORE ORDERING:
1. All orders from OUTSIDE OF THE U.S.A. must order at least 2 items.
2. All orders from OUTSIDE OF THE U.S.A. please make sure to select the correct price from the drop down menu - (CAN/MEX) for Canada or Mexico and (WORLD) for anywhere else outside North America.
3. All prices INCLUDE POSTAGE. (The small "shipping" charge of $.50 to $2.50 upon checkout is actually to cover paypal fees, and is purely based on the total amount of your order).
4. You should receive your order in 1-3 weeks, depending on order load at Rivalry and in the USPS mail system.

<%=objRS_Band("NAME") & "
" & """" & objRS_Merch("MERCH_TITLE") & """ " & objRS_Merch("FORMAT_NAME")%>

<%="(" & objRS_Merch("CATALOG_ID") & ")" & "

"%> <% If bOutOfStock = true Then %> Out Of Stock
<% End If %> <%=objRS_Merch("DESCRIPTION")%>

" WIDTH=190 HEIGHT=190 ALT="">
<%=objRS_Distro("BAND_NAME")%> <%="
""" & objRS_Distro("RECORD_TITLE") & """"%>
<%="
(" & objRS_Label("LABEL_NAME") & ", " & objRS_Distro("CATALOG_ID") & ")

"%> <% If bOutOfStock = true Then %> Out Of Stock
<% End If %>
<% If bOutOfStock = false Then %> <%=objRS_Distro("MERCH_TYPE") & " :"%> <% If instr(1, UCASE(objRS_Distro("DESCRIPTION")), "COLORED VINYL") Then %> Colored Vinyl <% End If %>

"> "> <% End If %>

IMPORTANT NOTES, PLEASE READ BEFORE ORDERING:
1. All orders from OUTSIDE OF THE U.S.A. must order at least 2 items.
2. All orders from OUTSIDE OF THE U.S.A. please make sure to select the correct price from the drop down menu - (CAN/MEX) for Canada or Mexico and (WORLD) for anywhere else outside North America.
3. All prices INCLUDE POSTAGE. (The small "shipping" charge of $.50 to $2.50 upon checkout is actually to cover paypal fees, and is purely based on the total amount of your order).
4. You should receive your order in 1-3 weeks, depending on order load at Rivalry and in the USPS mail system.

<%=objRS_Distro("DESCRIPTION")%>

<% While not objRS_Other_Items.EOF %> <% objRS_Other_Items.MoveNext If not objRS_Other_Items.EOF Then %> <% End If %> <% If not objRS_Other_Items.EOF Then objRS_Other_Items.MoveNext End If Wend %>
&Catalog_ID=<%=objRS_Other_Items("CATALOG_ID")%>">" width="54" height="54" alt="" border="0"> <%=objRS_Other_Items("TITLE") & " " & objRS_Other_Items("TYPE") & " " %> <% If instr(1, UCASE(objRS_Other_Items("DESCRIPTION")), "COLORED VINYL") Then %> Colored Vinyl <% End If %>
&Catalog_ID=<%=objRS_Other_Items("CATALOG_ID")%>"> Info >>
&Catalog_ID=<%=objRS_Other_Items("CATALOG_ID")%>">" width="54" height="54" alt="" border="0"> <%=objRS_Other_Items("TITLE") & " " & objRS_Other_Items("TYPE") & " " %> <% If instr(1, UCASE(objRS_Other_Items("DESCRIPTION")), "COLORED VINYL") Then %> Colored Vinyl <% End If %>
&Catalog_ID=<%=objRS_Other_Items("CATALOG_ID")%>"> Info >>
<% If mode="RIVAL" Then %> <% ElseIf mode="MERCH" Then %> <% ElseIf mode="DISTRO" Then %> <% End If %>
<% While not objRS_Track_Listing.EOF If not objRS_MP3.EOF Then If objRS_MP3("TRACK_NUMBER") = objRS_Track_Listing("TRACK_NUMBER") Then %> ','<%=objRS_MP3("TRACK_NUMBER")%>','<%=objRS_Release("BAND_ID")%>'); return false;"> <% End If End If %> <%=objRS_Track_Listing("TRACK_NUMBER") & ". " & objRS_Track_Listing("TRACK_TITLE") & "
"%> <% If not objRS_MP3.EOF Then If objRS_MP3("TRACK_NUMBER") = objRS_Track_Listing("TRACK_NUMBER") Then %>
<% objRS_MP3.MoveNext End If End If %> <% If Instr(1, objRS_Track_Listing("TRACK_TITLE"), "*") Then asterisk = true objRS_Track_Listing.MoveNext Wend %> <% If asterisk Then %>
*denotes CD only track <% End If %>
<% If len(trim(objRS_Release("ONESHEET"))) > 0 Then %> ">   ">Onesheet <%=objRS_Release("CATALOG_ID")%>

<% End If %>
<% While not objRS_Review.EOF %>

<%="""" & objRS_Review("COMMENT_SHORT") & """ "%> ','<%=objRS_Review("CATALOG_ID")%>','<%=objRS_Review("BAND_ID")%>'); return false;">More >>

<% objRS_Review.MoveNext Wend %>
<% If bOutOfStock = false Then %>
<%=objRS_Price("FORMAT_NAME") & " :
"%>

<% If len(trim(objRS_Merch("SIZES"))) > 0 Then %> Size :

<% End If%> <% If len(trim(objRS_Merch("Options"))) > 0 Then %> Color :

<% End If%> "> "> <% If len(trim(objRS_Merch("SIZES"))) > 0 Then %> <% End If %> <% If len(trim(objRS_Merch("OPTIONS"))) > 0 Then %> <% End If %>
<% Else %> Out Of Stock
<% End If %>
 
 

<% set objRS_Release = nothing set objRS_Distro = nothing set objRS_Band = nothing set objRS_Label = nothing set objRS_MP3 = nothing set objRS_Price = nothing set objRS_Track_Listing = nothing set objRS_Review = nothing set objRS_Merch = nothing set objRS_Merch_Sizes = nothing set objRS_Merch_Other = nothing set objRS_Distro_Other = nothing set objRS_Distro_Other_Label = nothing set objRS_Release_Other = nothing set objRS_Other_Items = nothing %>