<%@ 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) %> Rivalry Records
_01.jpg" WIDTH=26 HEIGHT=202 ALT=""> _02.jpg" WIDTH=566 HEIGHT=202 ALT="">

<% If (objRS_Journal.EOF AND objRS_Journal.BOF) Then %>
  <% End If %> <% For count = 1 to 3 If not objRS_Journal.EOF Then %> ','<%=objRS_Journal("BAND_ID")%>'); return false;"><%=objRS_Journal("ENTRY_TITLE")%> >>
Posted on <%=FormatDateTime(objRS_Journal("ENTRY_DATE"), vbShortDate)%>
<% objRS_Journal.MoveNext If count <> 3 Then Response.Write("
") End If Next %>


<% If len(trim(objRS_Band("BIO_FILE_NAME"))) > 0 Then %> ">   ">Bio Press Kit >>

<% End If %> <% set objRS_DL = Get_DOWNLOAD_By_TYPE_And_BAND_ID("LOGO", Band_ID) If (objRS_DL.EOF AND objRS_DL.BOF) Then %>
  <% Else %> <% For i=1 to objRS_DL.RecordCount If not objRS_DL.EOF Then %> ">   ">Logo Download >>

<% objRS_DL.MoveNext End If Next %> <% set objRS_DL = nothing End If %> <% If (objRS_Release.EOF AND objRS_Release.BOF) Then %>
  <% Else %> <% For i=1 to objRS_Release.RecordCount If not objRS_Release.EOF Then If len(trim(objRS_Release("ONESHEET"))) > 0 Then %> ">   ">Onesheet <%=objRS_Release("CATALOG_ID")%>

<% End If objRS_Release.MoveNext End If Next %> <% objRS_Release.MoveFirst End If %>


<% If (objRS_Shows.EOF AND objRS_Shows.BOF) Then %>
  <% End If %> <% While not objRS_Shows.EOF %> <%=objRS_Shows("LOC_CITY") & ", " & objRS_Shows("LOC_STATE")%>
<%=mid(FormatDateTime(objRS_Shows("SHOW_DATE"), vbLongDate), 1, instr(1, FormatDateTime(objRS_Shows("SHOW_DATE"), vbLongDate), ",")) & " " & FormatDateTime(objRS_Shows("SHOW_DATE"), vbShortDate)%>
<%="at " & objRS_Shows("LOC_VENUE")%>
<%="w/ " & objRS_Shows("BANDS_PLAYING")%>
<% objRS_Shows.MoveNext If not objRS_Shows.EOF Then Response.Write("
") Wend %>

 

Website : " target="_blank"><%=objRS_Band("WEBSITE")%>
Contact : "><%=objRS_Band("EMAIL")%>

 
<%=objRS_Band("BIO")%> <% If not (objRS_Interview.BOF AND objRS_Interview.EOF) Then Response.Write("

") For i=1 to objRS_Interview.RecordCount %> &i=<%=objRS_Interview("INTERVIEWEE")%>">Interview in <%=objRS_Interview("PUBLICATION_NAME")%>
<% objRS_Interview.MoveNext Next End If %>

<% For j = 1 to 2%> <% For i = 1 to 2 If not objRS_Photo.EOF Then %> <% objRS_Photo.MoveNext End If Next %> <% Next %>
','<%=objRS_Photo("BAND_ID")%>'); return false;">" width="50" height="50" border="0">

<% If not (objRS_Video.BOF AND objRS_Video.EOF) Then For i = 1 to objRS_Video.RecordCount %> <% If not objRS_Video.EOF Then %> <% objRS_Video.MoveNext End If Next %> <% End If %>
','<%=objRS_Video("BAND_ID")%>'); return false;">" width="50" height="40" border="0">

  <% While not objRS_Release.EOF set objRS_MP3 = Get_MP3_By_CATALOG_ID(objRS_Release("CATALOG_ID")) %>
">" width="60" height="60" border="0"> <%=mid(objRS_Release("TITLE"),1,15) & " " & objRS_Release("FORMAT")%> <% set objRS_Review = Get_REVIEW_By_CATALOG_ID(objRS_Release("CATALOG_ID")) If not (objRS_Review.BOF AND objRS_Review.EOF) Then %>
','<%=objRS_Release("CATALOG_ID")%>','<%=objRS_Release("BAND_ID")%>'); return false;">reviews <%End If set objRS_Review = nothing %>

<% While not objRS_MP3.EOF%> <% If objRS_Release("CATALOG_ID") = objRS_MP3("CATALOG_ID") Then %> ','<%=objRS_MP3("TRACK_NUMBER")%>','<%=objRS_Release("BAND_ID")%>'); return false;"><%=mid(objRS_MP3("TRACK_TITLE"),1,15) & ".mp3"%>
<% End If %> <% objRS_MP3.MoveNext Wend %>


<% set objRS_MP3 = nothing objRS_Release.MoveNext Wend %> <% While not objRS_Merch.EOF %>
">" width="60" height="60" border="0"> <%=objRS_Merch("MERCH_TITLE") & " " & objRS_Merch("FORMAT_NAME")%>

<% objRS_Merch.MoveNext Wend %> <% While not objRS_Distro.EOF %>
">" width="60" height="60" border="0"> <%=objRS_Distro("RECORD_TITLE") & " " & objRS_Distro("MERCH_TYPE")%>

<% objRS_Distro.MoveNext Wend %>

<% set objRS_Release = nothing set objRS_Photo = nothing set objRS_Video = nothing set objRS_MP3 = nothing set objRS_Journal = nothing set objRS_Band = nothing set objRS_Shows = nothing set objRS_Merch = nothing set objRS_Distro = nothing set objRS_DL = nothing set objRS_Review = nothing set objRS_Interview = nothing %>