<%Option Explicit Response.Buffer=True Response.CacheControl = "no-cache" On Error Resume Next dim PAGE_NAME PAGE_NAME = "media_photos.asp"%> <% dim objRS_Photo dim objRS_Band dim photo_BAND_ID dim count dim remainder count = 0 remainder = 0 set objRS_Band = Get_BAND() %> Rivalry Records
<% End If %> <% Wend End If %>
<% While not objRS_Band.EOF set objRS_Photo = Get_PHOTO_By_BAND_ID(objRS_Band("BAND_ID")) If not (objRS_Photo.BOF AND objRS_Photo.EOF) Then If instr(1, CStr(count / 4), ".") = 0 Then %> <% End If %> <% End If %> <% objRS_Band.MoveNext Wend %> <% remainder = 4 - (count Mod 4 )%> <%If remainder < 4 Then While remainder > 0 %> <% remainder = remainder - 1 %> <% If remainder = 0 Then %>
**Click any of the photos below for a pop up gallery of all photos by each particular Rivalry band.

<% End If %> <% count = count + 1 %> <% If instr(1, CStr(count / 4), ".") = 0 Then %>
', '<%=objRS_Photo("BAND_ID")%>'); return false;">" height="120" width="120" border="0">
<%=UCase(objRS_Band("NAME"))%>