%@ 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 %>
|