<% strBeginR = Request.QueryString("begin") strSortR = Request.QueryString("sort") %> <% Set RSShowList = Server.CreateObject("ADODB.Recordset") If strBeginR = "a" Then ShowList = "SELECT tblRegRecord.*, tblRegArtist.Name AS AName, tblRegMedia.Name AS MName FROM (tblRegRecord INNER JOIN tblRegArtist ON tblRegRecord.ArtistID = tblRegArtist.ID) INNER JOIN tblRegMedia ON tblRegRecord.MediaID = tblRegMedia.ID WHERE tblRegRecord.Name LIKE 'a%' AND tblRegRecord.Deleted = False ORDER BY tblRegRecord.Name" ElseIf strBeginR = "b" Then ShowList = "SELECT tblRegRecord.*, tblRegArtist.Name AS AName, tblRegMedia.Name AS MName FROM (tblRegRecord INNER JOIN tblRegArtist ON tblRegRecord.ArtistID = tblRegArtist.ID) INNER JOIN tblRegMedia ON tblRegRecord.MediaID = tblRegMedia.ID WHERE tblRegRecord.Name LIKE 'b%' AND tblRegRecord.Deleted = False ORDER BY tblRegRecord.Name" ElseIf strBeginR = "c" Then ShowList = "SELECT tblRegRecord.*, tblRegArtist.Name AS AName, tblRegMedia.Name AS MName FROM (tblRegRecord INNER JOIN tblRegArtist ON tblRegRecord.ArtistID = tblRegArtist.ID) INNER JOIN tblRegMedia ON tblRegRecord.MediaID = tblRegMedia.ID WHERE tblRegRecord.Name LIKE 'c%' AND tblRegRecord.Deleted = False ORDER BY tblRegRecord.Name" ElseIf strBeginR = "d" Then ShowList = "SELECT tblRegRecord.*, tblRegArtist.Name AS AName, tblRegMedia.Name AS MName FROM (tblRegRecord INNER JOIN tblRegArtist ON tblRegRecord.ArtistID = tblRegArtist.ID) INNER JOIN tblRegMedia ON tblRegRecord.MediaID = tblRegMedia.ID WHERE tblRegRecord.Name LIKE 'd%' AND tblRegRecord.Deleted = False ORDER BY tblRegRecord.Name" ElseIf strBeginR = "e" Then ShowList = "SELECT tblRegRecord.*, tblRegArtist.Name AS AName, tblRegMedia.Name AS MName FROM (tblRegRecord INNER JOIN tblRegArtist ON tblRegRecord.ArtistID = tblRegArtist.ID) INNER JOIN tblRegMedia ON tblRegRecord.MediaID = tblRegMedia.ID WHERE tblRegRecord.Name LIKE 'e%' AND tblRegRecord.Deleted = False ORDER BY tblRegRecord.Name" ElseIf strBeginR = "f" Then ShowList = "SELECT tblRegRecord.*, tblRegArtist.Name AS AName, tblRegMedia.Name AS MName FROM (tblRegRecord INNER JOIN tblRegArtist ON tblRegRecord.ArtistID = tblRegArtist.ID) INNER JOIN tblRegMedia ON tblRegRecord.MediaID = tblRegMedia.ID WHERE tblRegRecord.Name LIKE 'f%' AND tblRegRecord.Deleted = False ORDER BY tblRegRecord.Name" ElseIf strBeginR = "g" Then ShowList = "SELECT tblRegRecord.*, tblRegArtist.Name AS AName, tblRegMedia.Name AS MName FROM (tblRegRecord INNER JOIN tblRegArtist ON tblRegRecord.ArtistID = tblRegArtist.ID) INNER JOIN tblRegMedia ON tblRegRecord.MediaID = tblRegMedia.ID WHERE tblRegRecord.Name LIKE 'g%' AND tblRegRecord.Deleted = False ORDER BY tblRegRecord.Name" ElseIf strBeginR = "h" Then ShowList = "SELECT tblRegRecord.*, tblRegArtist.Name AS AName, tblRegMedia.Name AS MName FROM (tblRegRecord INNER JOIN tblRegArtist ON tblRegRecord.ArtistID = tblRegArtist.ID) INNER JOIN tblRegMedia ON tblRegRecord.MediaID = tblRegMedia.ID WHERE tblRegRecord.Name LIKE 'h%' AND tblRegRecord.Deleted = False ORDER BY tblRegRecord.Name" ElseIf strBeginR = "i" Then ShowList = "SELECT tblRegRecord.*, tblRegArtist.Name AS AName, tblRegMedia.Name AS MName FROM (tblRegRecord INNER JOIN tblRegArtist ON tblRegRecord.ArtistID = tblRegArtist.ID) INNER JOIN tblRegMedia ON tblRegRecord.MediaID = tblRegMedia.ID WHERE tblRegRecord.Name LIKE 'i%' AND tblRegRecord.Deleted = False ORDER BY tblRegRecord.Name" ElseIf strBeginR = "j" Then ShowList = "SELECT tblRegRecord.*, tblRegArtist.Name AS AName, tblRegMedia.Name AS MName FROM (tblRegRecord INNER JOIN tblRegArtist ON tblRegRecord.ArtistID = tblRegArtist.ID) INNER JOIN tblRegMedia ON tblRegRecord.MediaID = tblRegMedia.ID WHERE tblRegRecord.Name LIKE 'j%' AND tblRegRecord.Deleted = False ORDER BY tblRegRecord.Name" ElseIf strBeginR = "k" Then ShowList = "SELECT tblRegRecord.*, tblRegArtist.Name AS AName, tblRegMedia.Name AS MName FROM (tblRegRecord INNER JOIN tblRegArtist ON tblRegRecord.ArtistID = tblRegArtist.ID) INNER JOIN tblRegMedia ON tblRegRecord.MediaID = tblRegMedia.ID WHERE tblRegRecord.Name LIKE 'k%' AND tblRegRecord.Deleted = False ORDER BY tblRegRecord.Name" ElseIf strBeginR = "l" Then ShowList = "SELECT tblRegRecord.*, tblRegArtist.Name AS AName, tblRegMedia.Name AS MName FROM (tblRegRecord INNER JOIN tblRegArtist ON tblRegRecord.ArtistID = tblRegArtist.ID) INNER JOIN tblRegMedia ON tblRegRecord.MediaID = tblRegMedia.ID WHERE tblRegRecord.Name LIKE 'l%' AND tblRegRecord.Deleted = False ORDER BY tblRegRecord.Name" ElseIf strBeginR = "m" Then ShowList = "SELECT tblRegRecord.*, tblRegArtist.Name AS AName, tblRegMedia.Name AS MName FROM (tblRegRecord INNER JOIN tblRegArtist ON tblRegRecord.ArtistID = tblRegArtist.ID) INNER JOIN tblRegMedia ON tblRegRecord.MediaID = tblRegMedia.ID WHERE tblRegRecord.Name LIKE 'm%' AND tblRegRecord.Deleted = False ORDER BY tblRegRecord.Name" ElseIf strBeginR = "n" Then ShowList = "SELECT tblRegRecord.*, tblRegArtist.Name AS AName, tblRegMedia.Name AS MName FROM (tblRegRecord INNER JOIN tblRegArtist ON tblRegRecord.ArtistID = tblRegArtist.ID) INNER JOIN tblRegMedia ON tblRegRecord.MediaID = tblRegMedia.ID WHERE tblRegRecord.Name LIKE 'n%' AND tblRegRecord.Deleted = False ORDER BY tblRegRecord.Name" ElseIf strBeginR = "o" Then ShowList = "SELECT tblRegRecord.*, tblRegArtist.Name AS AName, tblRegMedia.Name AS MName FROM (tblRegRecord INNER JOIN tblRegArtist ON tblRegRecord.ArtistID = tblRegArtist.ID) INNER JOIN tblRegMedia ON tblRegRecord.MediaID = tblRegMedia.ID WHERE tblRegRecord.Name LIKE 'o%' AND tblRegRecord.Deleted = False ORDER BY tblRegRecord.Name" ElseIf strBeginR = "p" Then ShowList = "SELECT tblRegRecord.*, tblRegArtist.Name AS AName, tblRegMedia.Name AS MName FROM (tblRegRecord INNER JOIN tblRegArtist ON tblRegRecord.ArtistID = tblRegArtist.ID) INNER JOIN tblRegMedia ON tblRegRecord.MediaID = tblRegMedia.ID WHERE tblRegRecord.Name LIKE 'p%' AND tblRegRecord.Deleted = False ORDER BY tblRegRecord.Name" ElseIf strBeginR = "q" Then ShowList = "SELECT tblRegRecord.*, tblRegArtist.Name AS AName, tblRegMedia.Name AS MName FROM (tblRegRecord INNER JOIN tblRegArtist ON tblRegRecord.ArtistID = tblRegArtist.ID) INNER JOIN tblRegMedia ON tblRegRecord.MediaID = tblRegMedia.ID WHERE tblRegRecord.Name LIKE 'q%' AND tblRegRecord.Deleted = False ORDER BY tblRegRecord.Name" ElseIf strBeginR = "r" Then ShowList = "SELECT tblRegRecord.*, tblRegArtist.Name AS AName, tblRegMedia.Name AS MName FROM (tblRegRecord INNER JOIN tblRegArtist ON tblRegRecord.ArtistID = tblRegArtist.ID) INNER JOIN tblRegMedia ON tblRegRecord.MediaID = tblRegMedia.ID WHERE tblRegRecord.Name LIKE 'r%' AND tblRegRecord.Deleted = False ORDER BY tblRegRecord.Name" ElseIf strBeginR = "s" Then ShowList = "SELECT tblRegRecord.*, tblRegArtist.Name AS AName, tblRegMedia.Name AS MName FROM (tblRegRecord INNER JOIN tblRegArtist ON tblRegRecord.ArtistID = tblRegArtist.ID) INNER JOIN tblRegMedia ON tblRegRecord.MediaID = tblRegMedia.ID WHERE tblRegRecord.Name LIKE 's%' AND tblRegRecord.Deleted = False ORDER BY tblRegRecord.Name" ElseIf strBeginR = "t" Then ShowList = "SELECT tblRegRecord.*, tblRegArtist.Name AS AName, tblRegMedia.Name AS MName FROM (tblRegRecord INNER JOIN tblRegArtist ON tblRegRecord.ArtistID = tblRegArtist.ID) INNER JOIN tblRegMedia ON tblRegRecord.MediaID = tblRegMedia.ID WHERE tblRegRecord.Name LIKE 't%' AND tblRegRecord.Deleted = False ORDER BY tblRegRecord.Name" ElseIf strBeginR = "u" Then ShowList = "SELECT tblRegRecord.*, tblRegArtist.Name AS AName, tblRegMedia.Name AS MName FROM (tblRegRecord INNER JOIN tblRegArtist ON tblRegRecord.ArtistID = tblRegArtist.ID) INNER JOIN tblRegMedia ON tblRegRecord.MediaID = tblRegMedia.ID WHERE tblRegRecord.Name LIKE 'u%' AND tblRegRecord.Deleted = False ORDER BY tblRegRecord.Name" ElseIf strBeginR = "v" Then ShowList = "SELECT tblRegRecord.*, tblRegArtist.Name AS AName, tblRegMedia.Name AS MName FROM (tblRegRecord INNER JOIN tblRegArtist ON tblRegRecord.ArtistID = tblRegArtist.ID) INNER JOIN tblRegMedia ON tblRegRecord.MediaID = tblRegMedia.ID WHERE tblRegRecord.Name LIKE 'v%' AND tblRegRecord.Deleted = False ORDER BY tblRegRecord.Name" ElseIf strBeginR = "w" Then ShowList = "SELECT tblRegRecord.*, tblRegArtist.Name AS AName, tblRegMedia.Name AS MName FROM (tblRegRecord INNER JOIN tblRegArtist ON tblRegRecord.ArtistID = tblRegArtist.ID) INNER JOIN tblRegMedia ON tblRegRecord.MediaID = tblRegMedia.ID WHERE tblRegRecord.Name LIKE 'w%' AND tblRegRecord.Deleted = False ORDER BY tblRegRecord.Name" ElseIf strBeginR = "x" Then ShowList = "SELECT tblRegRecord.*, tblRegArtist.Name AS AName, tblRegMedia.Name AS MName FROM (tblRegRecord INNER JOIN tblRegArtist ON tblRegRecord.ArtistID = tblRegArtist.ID) INNER JOIN tblRegMedia ON tblRegRecord.MediaID = tblRegMedia.ID WHERE tblRegRecord.Name LIKE 'x%' AND tblRegRecord.Deleted = False ORDER BY tblRegRecord.Name" ElseIf strBeginR = "y" Then ShowList = "SELECT tblRegRecord.*, tblRegArtist.Name AS AName, tblRegMedia.Name AS MName FROM (tblRegRecord INNER JOIN tblRegArtist ON tblRegRecord.ArtistID = tblRegArtist.ID) INNER JOIN tblRegMedia ON tblRegRecord.MediaID = tblRegMedia.ID WHERE tblRegRecord.Name LIKE 'y%' AND tblRegRecord.Deleted = False ORDER BY tblRegRecord.Name" ElseIf strBeginR = "z" Then ShowList = "SELECT tblRegRecord.*, tblRegArtist.Name AS AName, tblRegMedia.Name AS MName FROM (tblRegRecord INNER JOIN tblRegArtist ON tblRegRecord.ArtistID = tblRegArtist.ID) INNER JOIN tblRegMedia ON tblRegRecord.MediaID = tblRegMedia.ID WHERE tblRegRecord.Name LIKE 'z%' AND tblRegRecord.Deleted = False ORDER BY tblRegRecord.Name" ElseIf strBeginR = "å" Then ShowList = "SELECT tblRegRecord.*, tblRegArtist.Name AS AName, tblRegMedia.Name AS MName FROM (tblRegRecord INNER JOIN tblRegArtist ON tblRegRecord.ArtistID = tblRegArtist.ID) INNER JOIN tblRegMedia ON tblRegRecord.MediaID = tblRegMedia.ID WHERE tblRegRecord.Name LIKE 'å%' AND tblRegRecord.Deleted = False ORDER BY tblRegRecord.Name" ElseIf strBeginR = "ä" Then ShowList = "SELECT tblRegRecord.*, tblRegArtist.Name AS AName, tblRegMedia.Name AS MName FROM (tblRegRecord INNER JOIN tblRegArtist ON tblRegRecord.ArtistID = tblRegArtist.ID) INNER JOIN tblRegMedia ON tblRegRecord.MediaID = tblRegMedia.ID WHERE tblRegRecord.Name LIKE 'ä%' AND tblRegRecord.Deleted = False ORDER BY tblRegRecord.Name" ElseIf strBeginR = "ö" Then ShowList = "SELECT tblRegRecord.*, tblRegArtist.Name AS AName, tblRegMedia.Name AS MName FROM (tblRegRecord INNER JOIN tblRegArtist ON tblRegRecord.ArtistID = tblRegArtist.ID) INNER JOIN tblRegMedia ON tblRegRecord.MediaID = tblRegMedia.ID WHERE tblRegRecord.Name LIKE 'ö%' AND tblRegRecord.Deleted = False ORDER BY tblRegRecord.Name" ElseIf strBeginR = "1" Then ShowList = "SELECT tblRegRecord.*, tblRegArtist.Name AS AName, tblRegMedia.Name AS MName FROM (tblRegRecord INNER JOIN tblRegArtist ON tblRegRecord.ArtistID = tblRegArtist.ID) INNER JOIN tblRegMedia ON tblRegRecord.MediaID = tblRegMedia.ID WHERE tblRegRecord.Name LIKE '1%' AND tblRegRecord.Deleted = False ORDER BY tblRegRecord.Name" ElseIf strBeginR = "2" Then ShowList = "SELECT tblRegRecord.*, tblRegArtist.Name AS AName, tblRegMedia.Name AS MName FROM (tblRegRecord INNER JOIN tblRegArtist ON tblRegRecord.ArtistID = tblRegArtist.ID) INNER JOIN tblRegMedia ON tblRegRecord.MediaID = tblRegMedia.ID WHERE tblRegRecord.Name LIKE '2%' AND tblRegRecord.Deleted = False ORDER BY tblRegRecord.Name" ElseIf strBeginR = "3" Then ShowList = "SELECT tblRegRecord.*, tblRegArtist.Name AS AName, tblRegMedia.Name AS MName FROM (tblRegRecord INNER JOIN tblRegArtist ON tblRegRecord.ArtistID = tblRegArtist.ID) INNER JOIN tblRegMedia ON tblRegRecord.MediaID = tblRegMedia.ID WHERE tblRegRecord.Name LIKE '3%' AND tblRegRecord.Deleted = False ORDER BY tblRegRecord.Name" ElseIf strBeginR = "4" Then ShowList = "SELECT tblRegRecord.*, tblRegArtist.Name AS AName, tblRegMedia.Name AS MName FROM (tblRegRecord INNER JOIN tblRegArtist ON tblRegRecord.ArtistID = tblRegArtist.ID) INNER JOIN tblRegMedia ON tblRegRecord.MediaID = tblRegMedia.ID WHERE tblRegRecord.Name LIKE '4%' AND tblRegRecord.Deleted = False ORDER BY tblRegRecord.Name" ElseIf strBeginR = "5" Then ShowList = "SELECT tblRegRecord.*, tblRegArtist.Name AS AName, tblRegMedia.Name AS MName FROM (tblRegRecord INNER JOIN tblRegArtist ON tblRegRecord.ArtistID = tblRegArtist.ID) INNER JOIN tblRegMedia ON tblRegRecord.MediaID = tblRegMedia.ID WHERE tblRegRecord.Name LIKE '5%' AND tblRegRecord.Deleted = False ORDER BY tblRegRecord.Name" ElseIf strBeginR = "6" Then ShowList = "SELECT tblRegRecord.*, tblRegArtist.Name AS AName, tblRegMedia.Name AS MName FROM (tblRegRecord INNER JOIN tblRegArtist ON tblRegRecord.ArtistID = tblRegArtist.ID) INNER JOIN tblRegMedia ON tblRegRecord.MediaID = tblRegMedia.ID WHERE tblRegRecord.Name LIKE '6%' AND tblRegRecord.Deleted = False ORDER BY tblRegRecord.Name" ElseIf strBeginR = "7" Then ShowList = "SELECT tblRegRecord.*, tblRegArtist.Name AS AName, tblRegMedia.Name AS MName FROM (tblRegRecord INNER JOIN tblRegArtist ON tblRegRecord.ArtistID = tblRegArtist.ID) INNER JOIN tblRegMedia ON tblRegRecord.MediaID = tblRegMedia.ID WHERE tblRegRecord.Name LIKE '7%' AND tblRegRecord.Deleted = False ORDER BY tblRegRecord.Name" ElseIf strBeginR = "8" Then ShowList = "SELECT tblRegRecord.*, tblRegArtist.Name AS AName, tblRegMedia.Name AS MName FROM (tblRegRecord INNER JOIN tblRegArtist ON tblRegRecord.ArtistID = tblRegArtist.ID) INNER JOIN tblRegMedia ON tblRegRecord.MediaID = tblRegMedia.ID WHERE tblRegRecord.Name LIKE '8%' AND tblRegRecord.Deleted = False ORDER BY tblRegRecord.Name" ElseIf strBeginR = "9" Then ShowList = "SELECT tblRegRecord.*, tblRegArtist.Name AS AName, tblRegMedia.Name AS MName FROM (tblRegRecord INNER JOIN tblRegArtist ON tblRegRecord.ArtistID = tblRegArtist.ID) INNER JOIN tblRegMedia ON tblRegRecord.MediaID = tblRegMedia.ID WHERE tblRegRecord.Name LIKE '9%' AND tblRegRecord.Deleted = False ORDER BY tblRegRecord.Name" ElseIf strBeginR = "0" Then ShowList = "SELECT tblRegRecord.*, tblRegArtist.Name AS AName, tblRegMedia.Name AS MName FROM (tblRegRecord INNER JOIN tblRegArtist ON tblRegRecord.ArtistID = tblRegArtist.ID) INNER JOIN tblRegMedia ON tblRegRecord.MediaID = tblRegMedia.ID WHERE tblRegRecord.Name LIKE '0%' AND tblRegRecord.Deleted = False ORDER BY tblRegRecord.Name" ElseIf strBeginR = "va" Then ShowList = "SELECT tblRegRecord.*, tblRegArtist.Name AS AName, tblRegMedia.Name AS MName FROM (tblRegRecord INNER JOIN tblRegArtist ON tblRegRecord.ArtistID = tblRegArtist.ID) INNER JOIN tblRegMedia ON tblRegRecord.MediaID = tblRegMedia.ID WHERE tblRegRecord.ArtistID = 389 AND tblRegRecord.Deleted = False AND IsNull(tblRegRecord.BoxID) = True ORDER BY tblRegRecord.Name" ElseIf strBeginR = "barn" Then ShowList = "SELECT tblRegRecord.*, tblRegArtist.Name AS AName, tblRegMedia.Name AS MName FROM (tblRegRecord INNER JOIN tblRegArtist ON tblRegRecord.ArtistID = tblRegArtist.ID) INNER JOIN tblRegMedia ON tblRegRecord.MediaID = tblRegMedia.ID WHERE tblRegRecord.ArtistID = 513 AND tblRegRecord.Deleted = False ORDER BY tblRegRecord.Name" ElseIf strBeginR = "alla" OR strBeginR = "" Then ShowList = "SELECT tblRegRecord.*, tblRegArtist.Name AS AName, tblRegMedia.Name AS MName FROM (tblRegRecord INNER JOIN tblRegArtist ON tblRegRecord.ArtistID = tblRegArtist.ID) INNER JOIN tblRegMedia ON tblRegRecord.MediaID = tblRegMedia.ID WHERE tblRegRecord.Deleted = False ORDER BY tblRegRecord.Name" ElseIf strBeginR = "sale" Then If strSortR = "artist" Or strSortR = "" Then ShowList = "SELECT tblRegRecord.*, tblRegArtist.Name AS AName, tblRegMedia.Name AS MName FROM (tblRegRecord INNER JOIN tblRegArtist ON tblRegRecord.ArtistID = tblRegArtist.ID) INNER JOIN tblRegMedia ON tblRegRecord.MediaID = tblRegMedia.ID WHERE tblRegRecord.Sale = True AND tblRegRecord.Deleted = False ORDER BY tblRegArtist.Name" ElseIf strSortR = "record" Then ShowList = "SELECT tblRegRecord.*, tblRegArtist.Name AS AName, tblRegMedia.Name AS MName FROM (tblRegRecord INNER JOIN tblRegArtist ON tblRegRecord.ArtistID = tblRegArtist.ID) INNER JOIN tblRegMedia ON tblRegRecord.MediaID = tblRegMedia.ID WHERE tblRegRecord.Sale = True AND tblRegRecord.Deleted = False ORDER BY tblRegRecord.Name" End If End If RSShowList.Open ShowList, Connect, adOpenDynamic, adLockOptimistic %>

Listar valda Skivor...

<% If RSShowList.EOF Then %> <% Else %> <% x = 0 Do Until RSShowList.EOF If x mod 2 = 0 Then bgcolor = "" & strTblBkgndM & "" Else bgcolor = "" & strTblBkgndL & "" End If %> <% x = x + 1 RSShowList.MoveNext Loop End If RSShowList.Close %>
Pic Skiva Artist / Grupp Media Säljes Pris

Inga Skivor hittade...

<% If RSShowList("Image") = True Then %>/<% =RSShowList("ID") %>.jpg"><% Else %><% End If %> <% If RSShowList("Noinfo") = False Then %>&box=<% =RSShowList("Box") %>"><% =RSShowList("Name") %><% Else %><% =RSShowList("Name") %><% End If %>  "><% =RSShowList("AName") %>  <% If Not RSShowList("NoRec") = "1" Then %><% =RSShowList("NoRec") %>-<% End If %><% =RSShowList("MName") %> <% If RSShowList("Box") = True Then %> (Box)<% End If %> <% If RSShowList("Sale") = True Then %>Ja<% Else %>Nej<% End If %> <% If RSShowList("Sale") = True Then %><% =RSShowList("Price") %><% Else %>-<% End If %>

Tillbaka till menyn