<%@ Language=VBScript %> <% set rsArtists = conn.execute("SELECT * FROM tblArtists ORDER BY AlphaArtistName;") set rsRecords = conn.execute("SELECT * FROM (tblRecords INNER JOIN tblArtists ON tblRecords.ArtistNumber = tblArtists.ArtistID) INNER JOIN tblLabels ON tblRecords.LabelNumber = tblLabels.LabelID ORDER BY RecordName;") %> Independent Old-Time Music Store


SHOPPING CART BY

MUSICIANS:
Do you have a CD that you want to sell on The Old-Time Music Home Page?
Click here for details.

INDEX
(Alphabetical, by Artist Name)

<% do until rsArtists.eof = true set rsCDs = conn.execute("SELECT * FROM tblRecords WHERE ArtistNumber = " & rsArtists("ArtistID") & ";") %>

<% = rsArtists("AlphaArtistName") %>
<% Do until rsCDs.eof = true response.write("" & rsCDs("RecordName") & "
") rsCDs.movenext Loop %>

<% rsArtists.movenext Loop rsCDs.close set rsCDs = nothing %>

 

This online store is devoted to giving more exposure to Old-Time musicians' independently-produced CDs. If you're looking for those hard-to-find Old-Time music releases, you should see many of them available here - and check back, because more are added every week!
WHY BUY HERE?

All CDs cost $15.00 + shipping, unless otherwise marked. (Click here for shipping information.) Sorry, but the music store only accepts orders from the US.

HOW TO USE THE STORE: For more information about any of these CDs, click on More Info button, the CD image or its title.When you click on the ADD CART or VIEW CART buttons on the item's page, a new window will open in your web browser displaying your selections. To continue shopping, click on the Old-Time Music Store window, which will be behind the shopping cart window. Email if you have questions!
<% do until rsRecords.eof = true %>
">">" align="left" hspace="6" alt="<% = rsRecords("RecordName") %>" border="0" height="<% = rsRecords("ThumbHeight") %>" width="<% = rsRecords("ThumbWidth") %>">"><% = rsRecords("RecordName") %> <% if rsRecords("RecordSubtitle") <> "" then %> <% = rsRecords("RecordSubtitle") %> <% end if %>
<% = rsRecords("ArtistName") %>
<% = rsRecords("LabelName") %> - <% = rsRecords("CatalogNumber") %>  ">
<% = rsRecords("ShortDescription") %>
GO TO TOP OF PAGE
<% rsRecords.movenext Loop %>
<% rsArtists.close set rsArtists = nothing rsRecords.close set rsRecords = nothing conn.close set conn = nothing %>