% strCheckAdmin = Mid(Session("SbNuAdmin"), 13, 1) %> <% strDate = DateAdd("d", -1, Date) %> <% Set RSShow = Server.CreateObject("ADODB.Recordset") Visa = "SELECT tblConcert.CountryID, tblCountry.ID AS CoID, tblCountry.SName AS CoName FROM tblConcert INNER JOIN tblCountry ON tblConcert.CountryID = tblCountry.ID WHERE tblConcert.ConDate > " & strDate & " AND tblConcert.Deleted = False AND tblConcert.Verified = True GROUP BY tblCountry.SName, tblCountry.ID, tblConcert.CountryID ORDER BY tblCountry.SName, tblCountry.ID " RSShow.Open Visa, Connect, adOpenStatic, adLockOptimistic %>
Skivbaren.nu's Konsertkalender!
Här finns info om kommande Konserter!
<% If strCheckAdmin = "1" Then %>
Lägg till Konsert | Admin Länderna
<% End If %>
Välj vad Du vill se genom att välja något av nedanstående:
Visa Alla
...eller sök nedan: