<% strBeginA = Request.QueryString("begin") %> <% Set RSShowList = Server.CreateObject("ADODB.Recordset") If strBeginA = "a" Then ShowList = "SELECT * FROM tblRegArtist WHERE Name LIKE 'a%' AND Deleted = False ORDER BY Name" ElseIf strBeginA = "b" Then ShowList = "SELECT * FROM tblRegArtist WHERE Name LIKE 'b%' AND Deleted = False ORDER BY Name" ElseIf strBeginA = "c" Then ShowList = "SELECT * FROM tblRegArtist WHERE Name LIKE 'c%' AND Deleted = False ORDER BY Name" ElseIf strBeginA = "d" Then ShowList = "SELECT * FROM tblRegArtist WHERE Name LIKE 'd%' AND Deleted = False ORDER BY Name" ElseIf strBeginA = "e" Then ShowList = "SELECT * FROM tblRegArtist WHERE Name LIKE 'e%' AND Deleted = False ORDER BY Name" ElseIf strBeginA = "f" Then ShowList = "SELECT * FROM tblRegArtist WHERE Name LIKE 'f%' AND Deleted = False ORDER BY Name" ElseIf strBeginA = "g" Then ShowList = "SELECT * FROM tblRegArtist WHERE Name LIKE 'g%' AND Deleted = False ORDER BY Name" ElseIf strBeginA = "h" Then ShowList = "SELECT * FROM tblRegArtist WHERE Name LIKE 'h%' AND Deleted = False ORDER BY Name" ElseIf strBeginA = "i" Then ShowList = "SELECT * FROM tblRegArtist WHERE Name LIKE 'i%' AND Deleted = False ORDER BY Name" ElseIf strBeginA = "j" Then ShowList = "SELECT * FROM tblRegArtist WHERE Name LIKE 'j%' AND Deleted = False ORDER BY Name" ElseIf strBeginA = "k" Then ShowList = "SELECT * FROM tblRegArtist WHERE Name LIKE 'k%' AND Deleted = False ORDER BY Name" ElseIf strBeginA = "l" Then ShowList = "SELECT * FROM tblRegArtist WHERE Name LIKE 'l%' AND Deleted = False ORDER BY Name" ElseIf strBeginA = "m" Then ShowList = "SELECT * FROM tblRegArtist WHERE Name LIKE 'm%' AND Deleted = False ORDER BY Name" ElseIf strBeginA = "n" Then ShowList = "SELECT * FROM tblRegArtist WHERE Name LIKE 'n%' AND Deleted = False ORDER BY Name" ElseIf strBeginA = "o" Then ShowList = "SELECT * FROM tblRegArtist WHERE Name LIKE 'o%' AND Deleted = False ORDER BY Name" ElseIf strBeginA = "p" Then ShowList = "SELECT * FROM tblRegArtist WHERE Name LIKE 'p%' AND Deleted = False ORDER BY Name" ElseIf strBeginA = "q" Then ShowList = "SELECT * FROM tblRegArtist WHERE Name LIKE 'q%' AND Deleted = False ORDER BY Name" ElseIf strBeginA = "r" Then ShowList = "SELECT * FROM tblRegArtist WHERE Name LIKE 'r%' AND Deleted = False ORDER BY Name" ElseIf strBeginA = "s" Then ShowList = "SELECT * FROM tblRegArtist WHERE Name LIKE 's%' AND Deleted = False ORDER BY Name" ElseIf strBeginA = "t" Then ShowList = "SELECT * FROM tblRegArtist WHERE Name LIKE 't%' AND Deleted = False ORDER BY Name" ElseIf strBeginA = "u" Then ShowList = "SELECT * FROM tblRegArtist WHERE Name LIKE 'u%' AND Deleted = False ORDER BY Name" ElseIf strBeginA = "v" Then ShowList = "SELECT * FROM tblRegArtist WHERE Name LIKE 'v%' AND Deleted = False ORDER BY Name" ElseIf strBeginA = "w" Then ShowList = "SELECT * FROM tblRegArtist WHERE Name LIKE 'w%' AND Deleted = False ORDER BY Name" ElseIf strBeginA = "x" Then ShowList = "SELECT * FROM tblRegArtist WHERE Name LIKE 'x%' AND Deleted = False ORDER BY Name" ElseIf strBeginA = "y" Then ShowList = "SELECT * FROM tblRegArtist WHERE Name LIKE 'y%' AND Deleted = False ORDER BY Name" ElseIf strBeginA = "z" Then ShowList = "SELECT * FROM tblRegArtist WHERE Name LIKE 'z%' AND Deleted = False ORDER BY Name" ElseIf strBeginA = "å" Then ShowList = "SELECT * FROM tblRegArtist WHERE Name LIKE 'å%' AND Deleted = False ORDER BY Name" ElseIf strBeginA = "ä" Then ShowList = "SELECT * FROM tblRegArtist WHERE Name LIKE 'ä%' AND Deleted = False ORDER BY Name" ElseIf strBeginA = "ö" Then ShowList = "SELECT * FROM tblRegArtist WHERE Name LIKE 'ö%' AND Deleted = False ORDER BY Name" ElseIf strBeginA = "1" Then ShowList = "SELECT * FROM tblRegArtist WHERE Name LIKE '1%' AND Deleted = False ORDER BY Name" ElseIf strBeginA = "2" Then ShowList = "SELECT * FROM tblRegArtist WHERE Name LIKE '2%' AND Deleted = False ORDER BY Name" ElseIf strBeginA = "3" Then ShowList = "SELECT * FROM tblRegArtist WHERE Name LIKE '3%' AND Deleted = False ORDER BY Name" ElseIf strBeginA = "4" Then ShowList = "SELECT * FROM tblRegArtist WHERE Name LIKE '4%' AND Deleted = False ORDER BY Name" ElseIf strBeginA = "5" Then ShowList = "SELECT * FROM tblRegArtist WHERE Name LIKE '5%' AND Deleted = False ORDER BY Name" ElseIf strBeginA = "6" Then ShowList = "SELECT * FROM tblRegArtist WHERE Name LIKE '6%' AND Deleted = False ORDER BY Name" ElseIf strBeginA = "7" Then ShowList = "SELECT * FROM tblRegArtist WHERE Name LIKE '7%' AND Deleted = False ORDER BY Name" ElseIf strBeginA = "8" Then ShowList = "SELECT * FROM tblRegArtist WHERE Name LIKE '8%' AND Deleted = False ORDER BY Name" ElseIf strBeginA = "9" Then ShowList = "SELECT * FROM tblRegArtist WHERE Name LIKE '9%' AND Deleted = False ORDER BY Name" ElseIf strBeginA = "0" Then ShowList = "SELECT * FROM tblRegArtist WHERE Name LIKE '0%' AND Deleted = False ORDER BY Name" ElseIf strBeginA = "alla" OR strBegin = "" Then ShowList = "SELECT * FROM tblRegArtist WHERE Deleted = False ORDER BY Name" End If RSShowList.Open ShowList, Connect, adOpenDynamic, adLockOptimistic %>

Listar valda Artister...

<% If RSShowList.EOF Then %> <% Else %> <% x = 0 Do Until RSShowList.EOF If x mod 2 = 0 Then bgcolor = "" & strTblBkgndM & "" Else bgcolor = "" & strTblBkgndL & "" End If strArtist = RSShowList("ID") Set RSCountRecord = Server.CreateObject("ADODB.Recordset") CountRecord = "SELECT ID FROM tblRegRecord WHERE ArtistID = " & strArtist & " AND Box = False AND Deleted = False GROUP BY ID" RSCountRecord.CursorLocation = adUseClient RSCountRecord.Open CountRecord, Connect, adOpenDynamic, adLockOptimistic Set RSCountLink = Server.CreateObject("ADODB.Recordset") CountLink = "SELECT ID FROM tblRegLink WHERE ArtistID = " & strArtist & " AND Deleted = False GROUP BY ID" RSCountLink.CursorLocation = adUseClient RSCountLink.Open CountLink, Connect, adOpenDynamic, adLockOptimistic Set RSCountRel = Server.CreateObject("ADODB.Recordset") CountRel = "SELECT ID FROM tblRegRelate WHERE (Artist1ID = " & strArtist & " OR Artist2ID = " & strArtist & ") AND Deleted = False GROUP BY ID" RSCountRel.CursorLocation = adUseClient RSCountRel.Open CountRel, Connect, adOpenDynamic, adLockOptimistic %> <% x = x + 1 CountRecord = 0 RSCountRecord.Close CountLink = 0 RSCountLink.Close CountRel = 0 RSCountRel.Close strArtist = 0 RSShowList.MoveNext Loop End If RSShowList.Close %>
Artist / Grupp Ant. Skivor Ant. Länkar Ant. Relationer

Inga Artister hittade...

"><% =RSShowList("Name") %>  <% If RSCountRecord.EOF Then %><% Response.Write "0" %><% Else %><% =RSCountRecord.RecordCount %><% End If %>  <% If RSCountLink.EOF Then %><% Response.Write "0" %><% Else %><% =RSCountLink.RecordCount %><% End If %>  <% If RSCountRel.EOF Then %><% Response.Write "0" %><% Else %><% =RSCountRel.RecordCount %><% End If %> 

Tillbaka till menyn