% Set RSCountArtist = Server.CreateObject("ADODB.Recordset") AntalAr = "SELECT COUNT(Name) AS AntalA FROM tblRegArtist WHERE Deleted = False" RSCountArtist.Open AntalAr, Connect, adOpenDynamic, adLockOptimistic Set RSCountRecord = Server.CreateObject("ADODB.Recordset") AntalRe = "SELECT COUNT(Name) AS AntalR FROM tblRegRecord WHERE Box = False AND Deleted = False" RSCountRecord.Open AntalRe, Connect, adOpenDynamic, adLockOptimistic Set RSCountSale = Server.CreateObject("ADODB.Recordset") AntalSa = "SELECT COUNT(Name) AS AntalS FROM tblRegRecord WHERE Sale = True AND Deleted = False" RSCountSale.Open AntalSa, Connect, adOpenDynamic, adLockOptimistic Set RSCountTrack = Server.CreateObject("ADODB.Recordset") AntalTr = "SELECT COUNT(Name) AS AntalT FROM tblRegTrack WHERE Deleted = False" RSCountTrack.Open AntalTr, Connect, adOpenDynamic, adLockOptimistic Set RSCountLink = Server.CreateObject("ADODB.Recordset") AntalLi = "SELECT COUNT(Link) AS AntalL FROM tblRegLink WHERE Deleted = False" RSCountLink.Open AntalLi, Connect, adOpenDynamic, adLockOptimistic %>
Skivbaren.nu's Skivregister
Nu tror vi att vi fått med alla skivor vi har ståendes hemma i hyllorna!
Sökalternativ:
Dock så tar det lite tid att lägga upp all övrig info om dom, men så småningom så...! :)
Vi har även flyttat över skivorna som är till salu, till registret.
Om Du vill beställa, eller har frågor om nån' av dessa, kan Du göra det på order@skivbaren.nu.
Nedan finns olika alternativ för att få fram listor eller söka efter Artister, Skivor eller Låtar!
Det finns just nu <% =RSCountArtist("AntalA") %> Artister, <% =RSCountRecord("AntalR") %> Skivor (varav <% =RSCountSale("AntalS") %> till salu), <% =RSCountTrack("AntalT") %> Låtar & <% =RSCountLink("AntalL") %> Länkar i registret!
Så nu är det bara att leta, välja och läsa!
Tommy & Malin
Sök:
Artist/Grupp
Skiva
Låt