<% strCheckAdmin = Mid(Session("SbNuAdmin"), 5, 1) strDate = DateAdd("d", -45, Now) %> <% Set RSClassDel = Server.CreateObject("ADODB.Recordset") ClassDel = "SELECT * FROM tblClass WHERE Datum < #" & strDate & "# AND Deleted = False " RSClassDel.Open ClassDel, Connect, adOpenStatic, adLockOptimistic Do Until RSClassDel.EOF RSClassDel("Deleted") = True RSClassDel("DeleteDate") = Now RSClassDel("DeletedByID") = 2 RSClassDel("DeletedByIP") = Request.ServerVariables("REMOTE_ADDR") If RSClassDel("ByMem") = True Then strMemID = RSClassDel("MemID") Set RSCount = Server.CreateObject("ADODB.Recordset") CountStat = "SELECT * FROM tblMember WHERE ID = " & strMemID & " " RSCount.Open CountStat, Connect, adOpenStatic, adLockOptimistic RSCount("NoClassActive") = RSAddCount("NoClassActive") - 1 RSCount.Update RSCount.Close End If RSClassDel.Update RSClassDel.MoveNext Loop RSClassDel.Close Set RSMainCat = Server.CreateObject("ADODB.Recordset") MainCat = "SELECT * FROM tblClassCat WHERE IsNull(SubCatID) = True AND Deleted = False ORDER BY Ordning, Name " RSMainCat.Open MainCat, Connect, adOpenStatic, adLockOptimistic %>

Skivbaren.nu's Annonssida!

Här kan Du som besökare gratis lägga ut musikrelaterade Annonser, eller leta bland de redan befintliga!

Här nedanför väljer Du vad Du vill göra:

Lägg in en Annons

<% If strCheckAdmin = "1" Then %> Lägg till Kategori

<% End If %> Visa Alla Annonser | Visa Alla Säljesannonser | Visa Alla Köpesannonser

...eller visa Annonserna i någon av följande kategorier:

<% Do Until RSMainCat.EOF %> <% strMainCatID = CLng(RSMainCat("ID")) Set RSSubCat = Server.CreateObject("ADODB.Recordset") SubCat = "SELECT * FROM tblClassCat WHERE SubCatID = " & strMainCatID & " AND Deleted = False ORDER BY Ordning, Name " RSSubCat.Open SubCat, Connect, adOpenDynamic, adLockOptimistic Do Until RSSubCat.EOF %> <% strCountClassID = 0 CountClass = 0 RSCountClass.Close RSSubCat.MoveNext Loop RSSubCat.Close strSubCatID = 0 RSMainCat.MoveNext Loop RSMainCat.Close %>
<% =RSMainCat("Name") %>
<% =RSMainCat("Info") %> <% If strCheckAdmin = "1" Then %>
">  "> <% End If %>
<% strCountClassID = RSSubCat("ID") Set RSCountClass = Server.CreateObject("ADODB.Recordset") CountClass = "SELECT COUNT(ID) AS CountClass FROM tblClass WHERE Datum > #" & strDate & "# AND CatID = " & strCountClassID & " AND Deleted = False " RSCountClass.Open CountClass, Connect, adOpenDynamic, adLockOptimistic %> "><% =RSSubCat("Name") %>
<% =RSSubCat("Info") %> <% If strCheckAdmin = "1" Then %>
">  "> <% End If %>
Innehåller <% If RSCountClass.EOF Then %><% Response.Write "0" %><% Else %><% =RSCountClass("CountClass") %><% End If %> <% If RSCountClass("CountClass") <> 1 Then %>Annonser<% Else %>Annons<% End If %>...