<% strCheckAdmin = Mid(Session("SbNuAdmin"), 14, 1) %> <% Set RSMainCat = Server.CreateObject("ADODB.Recordset") Visa = "SELECT * FROM tblForumCat WHERE IsNull(SubID) = True AND Deleted = False ORDER BY Ordning, Name " RSMainCat.Open Visa, Connect, adOpenStatic, adLockOptimistic %>

Skivbaren.nu's Musikforum!

Här är det fritt fram att diskutera musik!
Dock måste du vara inloggad för att kunna posta i forumet...

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

<% End If %> Välj någon av följande kategorier:

<% Do Until RSMainCat.EOF %> <% strMainCatID = CLng(RSMainCat("ID")) Set RSSubCat = Server.CreateObject("ADODB.Recordset") SubCat = "SELECT * FROM tblForumCat WHERE SubID = " & strMainCatID & " AND Deleted = False ORDER BY Ordning, Name " RSSubCat.Open SubCat, Connect, adOpenDynamic, adLockOptimistic Do Until RSSubCat.EOF strModCatID = RSSubCat("ID") Set RSModerat = Server.CreateObject("ADODB.Recordset") Moderator = "SELECT tblForumModerator.*, tblMember.Nick AS MemNick FROM tblForumModerator INNER JOIN tblMember ON tblForumModerator.ModID = tblMember.ID WHERE tblForumModerator.CatID = " & strModCatID & " AND tblForumModerator.Deleted = False " RSModerat.Open Moderator, Connect, adOpenStatic, adLockOptimistic %> <% RSSubCat.MoveNext Loop RSSubCat.Close strSubCatID = 0 RSMainCat.MoveNext Loop RSMainCat.Close %>
<% =RSMainCat("Name") %>
<% =RSMainCat("Info") %> <% If strCheckAdmin = "1" Then %>
">  "> <% End If %>
"><% =RSSubCat("Name") %>
<% =RSSubCat("Info") %> <% If strCheckAdmin = "1" Then %>
">  "> <% End If %> <% If Not RSModerat.EOF Then %>

Moderator(er): <% Do Until RSModerat.EOF %> <% =RSModerat("MemNick") %> <% RSModerat.MoveNext Loop RSModerat.Close strModCatID = 0 %> <% End If %>
Innehåller <% =RSSubCat("CountThread") %> <% If RSSubCat("CountThread") <> 1 Then %>Trådar<% Else %>Tråd<% End If %> & <% =RSSubCat("CountPost") %> Svar...
Totalt <% =RSSubCat("CountView") %> Besök...