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

<% While not objRS_Release.EOF %> <% set objRS_Band = nothing objRS_Release.MoveNext Wend %>
">" WIDTH=120 HEIGHT=120 BORDER=0 ALT="">
<%=objRS_Release("BAND_NAME") & " - """ & objRS_Release("TITLE") & """ " & "Digital Download - " & Cstr(FormatCurrency(objRS_Release("PRICE_USA"),2))%>
*Download includes all mp3s and FULL album artwork
<%=mid(objRS_Release("DESCRIPTION"), 1, 300) & "..."%>
">More Info >>

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