<%@ Language=VBScript %> <%Option Explicit Response.Buffer=True Response.CacheControl = "no-cache" On Error Resume Next dim PAGE_NAME PAGE_NAME = "store_distro.asp"%> <% dim objRS_Distro dim count set objRS_Distro = Get_Distro() %> Rivalry Records

<% While not objRS_Distro.EOF %> <% objRS_Distro.MoveNext If not objRS_Distro.EOF Then %> <% End If %> <% If not objRS_Distro.EOF Then objRS_Distro.MoveNext Wend %>
">" WIDTH=68 HEIGHT=68 BORDER=0 ALT="">
<%=objRS_Distro("BAND_NAME") & " - """ & objRS_Distro("RECORD_TITLE") & """ " & objRS_Distro("MERCH_TYPE") & " "%> <% If instr(1, UCASE(objRS_Distro("DESCRIPTION")), "COLORED VINYL") Then %> Colored Vinyl <% End If %>
">More Info >>
">" WIDTH=68 HEIGHT=68 BORDER=0 ALT="">
<%=objRS_Distro("BAND_NAME") & " - """ & objRS_Distro("RECORD_TITLE") & """ " & objRS_Distro("MERCH_TYPE") & " "%> <% If instr(1, UCASE(objRS_Distro("DESCRIPTION")), "COLORED VINYL") Then %> Colored Vinyl <% End If %>
">More Info >>
<% set objRS_Distro = nothing %>