<%@ Language=VBScript %> <%Option Explicit Response.Buffer=True Response.CacheControl = "no-cache" On Error Resume Next dim PAGE_NAME PAGE_NAME = "store_releases.asp"%> <% dim objRS_Release dim objRS_Distro dim objRS_Band dim objRS_Label dim format dim pos set objRS_Release = Get_RELEASE_By_AVAILABLE() %> Rivalry Records

<% While not objRS_Release.EOF %> <% set objRS_Band = nothing objRS_Release.MoveNext Wend %>
">" WIDTH=120 HEIGHT=120 BORDER=0 ALT="">
<% format = Replace(objRS_Release("FORMAT"), ",", ", ") If instr(1, format, "DD") > 0 Then pos = instr(1, format, "DD") format = mid(format, 1, pos - 1 ) & _ "Digital" & _ mid(format, pos + 3) End If %> <%=objRS_RELEASE("BAND_NAME") & " - """ & objRS_Release("TITLE") & """ " & format%> <% If instr(1, UCASE(objRS_Release("DESCRIPTION")), "COLORED VINYL") Then %> Colored Vinyl <% End If %>
<%=mid(objRS_Release("DESCRIPTION"), 1, 300) & "..."%>
">More Info >>

<% set objRS_Release = nothing set objRS_Distro = nothing set objRS_Band = nothing set objRS_Label = nothing %>