<%@ Language=VBScript %> <%Option Explicit Response.Buffer=True Response.CacheControl = "no-cache" On Error Resume Next dim PAGE_NAME PAGE_NAME = "store_shirts.asp"%> <% dim objRS_Merch dim objRS_Band dim count set objRS_Merch = Get_MERCH_By_MERCH_TYPE("POSTER") %> Rivalry Records

<% While not objRS_Merch.EOF If instr(1, CStr(count / 2), ".") = 0 Then %> <% End If %> <% count = count + 1 If instr(1, CStr(count / 2), ".") = 0 Then %> <% Else %> <% End If %> <% objRS_Merch.MoveNext Wend %>
">" WIDTH=120 HEIGHT=120 BORDER=0 ALT="">
 
<%=objRS_Merch("BAND_NAME") & " - """ & objRS_Merch("MERCH_TITLE") & """ " & objRS_Merch("FORMAT_NAME")%>
">More Info >>
<% set objRS_Merch = nothing set objRS_Band = nothing %>