% 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 %>
<% =RSMainCat("Name") %>
<% =RSMainCat("Info") %>
<% If strCheckAdmin = "1" Then %>
">
">
<% End If %>
<% strCountClassID = 0
CountClass = 0
RSCountClass.Close
RSSubCat.MoveNext
Loop
RSSubCat.Close
strSubCatID = 0
RSMainCat.MoveNext
Loop
RSMainCat.Close %>
<% 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 %>...