<% AlphaTop = request("catstart") AlphaBottom = request("catend") if AlphaTop = "" Then AlphaTop = " " if AlphaBottom = "" Then AlphaBottom = "B" dim AlphaStartArray dim AlphaEndArray AlphaStartArray = array(" ", "C", "F", "H", "K", "M", "P", "S", "U", "W") AlphaEndArray = array("B", "E", "G", "J", "L", "O", "R", "T", "V", "Z") for i = 0 to ubound(AlphaEndArray) if AlphaBottom = AlphaEndArray(i) then AlphaCounter = i end if next %> Catalog
Browse through the catalog by clicking the links below:
#-B | C-E | F-G | H-J | K-L | M-O | P-R | S-T | U-V | W-Z
<% firstRow = 0 For j=1 to ttlRows if (StrComp(Left(artAlpha(j),1), AlphaTop, 1) >= 0) AND (StrComp(Left(artAlpha(j),1), AlphaBottom, 1) <= 0) then %> <% Set rsCatalog = Server.CreateObject("ADODB.Recordset") checkCat = "SELECT * FROM catalog WHERE artist_id=" & artNumber(j) & " ORDER BY release_date DESC, format_code" rsCatalog.Open checkCat, dbAgentDat If Not rsCatalog.eof Then If firstRow = 0 Then %> <% firstRow = 1 End If %> <%Do Until rsCatalog.eof linkstart = "" linkend = "" listingclass = "catalogitem" If rsCatalog("detail") = 1 Then linkstart = "" listingclass = "cataloglink" linkend = "" End If %> <% rsCatalog.MoveNext Loop End If End If Next %>
  TITLE ITEM # PRICE BUY
<%= UCase(artName(j))%> <% if (artDetail(j)=1) then response.write("[View Artist Detail]") %>
<%= linkstart %>.jpg" vspace="3" width="50" height="50" border="0"><%= linkend %> <%= linkstart %><%= rsCatalog("title")%><%= linkend %> <%= rsCatalog("itemnumber")%>-<%= rsCatalog("format_code")%> <%= rsCatalog("price")%> &partner_id=randt">.gif" width=75 height=15 border=0 alt="">

<% if AlphaCounter > 0 Then %> Previous <% end if %> <% if (AlphaCounter < 9) AND (AlphaCounter > 0) then %> | <% end if %> <% if (AlphaCounter < 9) then %> Next <% end if %>