<% 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:

Sökfunktion:

Fr.o.m.: 
T.o.m.:   

Fritext: 

Land: