%@ Language=VBScript %> <%Option Explicit Response.Buffer=True Response.CacheControl = "no-cache" On Error Resume Next dim PAGE_NAME PAGE_NAME = "bands-detail.asp"%> <% dim count dim i dim j dim objRS_Band dim objRS_Release dim objRS_Photo dim objRS_MP3 dim objRS_Journal dim objRS_Shows dim objRS_Merch dim objRS_Distro dim objRS_DL dim objRS_Video dim objRS_Review dim objRS_Interview dim Band_ID Band_ID = Request("bID") If len(trim(Band_ID)) > 3 Then Response.Redirect "bands.asp" set objRS_Band = Get_BAND_By_BAND_ID(Band_ID) If (objRS_Band.BOF AND objRS_Band.EOF) Then ' Record not found Response.Redirect "bands.asp" End If set objRS_Release = Get_RELEASE_By_BAND_ID(Band_ID) set objRS_Photo = Get_PHOTO_By_BAND_ID(Band_ID) set objRS_Video = Get_VIDEO_By_BAND_ID(Band_ID) set objRS_Journal = Get_JOURNAL_By_BAND_ID(Band_ID) set objRS_Shows = Get_SHOWS_By_BAND_ID(Band_ID) set objRS_Merch = Get_MERCH_By_BAND_ID(Band_ID) set objRS_Distro = Get_DISTRO_By_BAND_ID(Band_ID) set objRS_DL = Get_DOWNLOAD_By_BAND_ID(Band_ID) set objRS_Interview = Get_INTERVIEW_BY_BAND_ID(Band_ID) %>
|