<%Option Explicit Response.Buffer=True Response.CacheControl = "no-cache" On Error Resume Next dim PAGE_NAME PAGE_NAME = "media_reviews.asp"%> <% dim objRS_Release dim objRS_Review dim count dim remainder count = 0 remainder = 0 set objRS_Release = Get_RELEASE_By_AVAILABLE() %> Rivalry Records
<% End If %> <% Wend %>
<% While not objRS_Release.EOF set objRS_Review = Get_REVIEW_By_CATALOG_ID(objRS_Release("CATALOG_ID")) If not (objRS_Review.BOF AND objRS_Review.EOF) Then If instr(1, CStr(count / 4), ".") = 0 Then %> <% End If %> <% End If %> <% objRS_Release.MoveNext Wend %> <% remainder = 4 - (count Mod 4 )%> <% While remainder > 0 %> <% remainder = remainder - 1 %> <% If remainder = 0 Then %>
**Click any of the cover art images below for a pop up window with all of the reviews of each release that we currently have in our database.

<% End If %> <% count = count + 1 %> <% If instr(1, CStr(count / 4), ".") = 0 Then %>
','<%=objRS_Review("CATALOG_ID")%>','<%=objRS_Review("BAND_ID")%>'); return false;">" height="120" width="120" border="0">
<%=Ucase(objRS_Release("BAND_NAME"))%>
<%="""" & mid(objRS_Release("TITLE"),1,20) & """"%>
 

<% set objRS_Release = nothing set objRS_Review = nothing %>