BACKING TRACKS
A to Z Listing
<% Dim MyConn Dim strConnect Dim list, tmp, arrayLen, x strConnect = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=E:\FTP_Data\Shared\users\splashpr_1\databases\splash.mde;" Set MyConn = Server.CreateObject("ADODB.Connection") MyConn.open strConnect %>
<%
'Display the letters
tmp = "A,B,C,D,E,F,G,H,I,J,K,L,M,N,O,P,Q,R,S,T,U,V,W,X,Y,Z"
list = array(1)
list = split(tmp,",","-1")
arrayLen = (UBound(list) - LBound(list))
if arrayLen > 0 then
for x = 0 to arrayLen
%>
<%=List(x)%>
<% next
end if
%>
Clear
<%
dim ID, i, found
found = 0
ID = request.querystring("ID")
If id <> "" Then
for i=0 to arrayLen
if List(i) = ID Then
found = 1
end if
next
if found then
dim strSQL, objRS
strSQL = "select * from SongCatalogue Where TrackType <> 'p&p' And TrackType <> 'Compilation CD' AND TrackArtist LIKE '" & ID & "%';"
Set objRS = Server.CreateObject("ADODB.Recordset")
objRS.Open strSQL,MyConn
if objRS.EOF = False Then %>
<% else
Response.write "
Title | Artist | |
| <% Response.write objRS("TrackTitle") %> | <% Response.write objRS("TrackArtist") %> | <% if objRS("TrackType") = "Backing Track" or objRS("TrackType") = "Backing Track (Made to order)" Then %> <% else %> <% end if %> |
There are no artists starting with " & ID & "
" end if objRS.Close set objRS = Nothing MyConn.Close set MyConn = Nothing end if else %>Buy Online Now
Our extensive range of Backing Tracks can be bought online now. Our website incorporates the PayPal Shopping Cart system allowing you to make fast and secure payments with your credit or debit card.
To find your track please use the above alphabetical index to search by Artist name.
<% end if %>
