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