<% intPageSize = 25 intPage = Request.QueryString("page") If intPage = "" Then intPage = 1 %> <% Set RSCatView = Server.CreateObject("ADODB.Recordset") CatView = "SELECT * FROM tblForumCat WHERE ID = " & Request.QueryString("catid") & " " RSCatView.Open CatView, Connect, adOpenStatic, adLockOptimistic RSCatView("CountView") = RSCatView("CountView") -- 1 RSCatView.Update RSCatView.Close Set RSSubCatName = Server.CreateObject("ADODB.Recordset") SubCatName = "SELECT * FROM tblForumCat WHERE ID = " & Request.QueryString("catid") & " " RSSubCatName.Open SubCatName, Connect, adOpenStatic, adLockOptimistic strMainCatID = RSSubCatName("SubID") Set RSMainCatName = Server.CreateObject("ADODB.Recordset") MainCatName = "SELECT * FROM tblForumCat WHERE ID = " & strMainCatID & " " RSMainCatName.Open MainCatName, Connect, adOpenStatic, adLockOptimistic Set RSShow = Server.CreateObject("ADODB.Recordset") Visa = "SELECT tblForum.*, tblMember.Nick AS MemNick FROM tblForum INNER JOIN tblMember ON tblForum.MemID = tblMember.ID WHERE tblForum.CatID = " & Request.QueryString("catid") & " AND tblForum.Deleted = False ORDER BY tblForum.LastDate DESC, tblForum.ID DESC" With RSShow .ActiveConnection = Connect .Source = Visa .PageSize = intPageSize .CursorType = 3 .LockType = 1 .Open End With %>

Visar Trådar i Kategorin: <% =RSMainCatName("Name") %> / <% =RSSubCatName("Name") %>

<% RSMainCatName.Close RSSubCatName.Close %> <% If Session("SbNuUserGood") = True Then %> ">Skapa en Ny Tråd

<% End If %>
<% If Not RSShow.EOF Then RSShow.AbsolutePage = intPage intTotalPages = RSShow.PageCount Call PageNavigation(intPage, intTotalPages) %> <% Do Until RSShow.EOF OR intCounter >= intPageSize intCounter = intCounter + 1 If x mod 2 = 0 Then bgcolor = "" & strTblBkgndM & "" Else bgcolor = "" & strTblBkgndL & "" End If If IsNull(RSShow("LastDate")) = False Then strThreadID = RSShow("ID") Set RSLastName = Server.CreateObject("ADODB.Recordset") LastName = "SELECT TOP 1 tblForum.*, tblMember.Nick AS LastNick, tblMember.ID AS MemID FROM tblForum INNER JOIN tblMember ON tblForum.MemID = tblMember.ID WHERE tblForum.ThreadID = " & strThreadID & " ORDER BY tblForum.Datum DESC " RSLastName.Open LastName, Connect, adOpenDynamic, adLockOptimistic End If %> <% x = x + 1 If IsNull(RSShow("LastDate")) = False Then strThreadID = 0 RSLastName.Close End If RSShow.MoveNext Loop RSShow.Close Set RSShow = Nothing %>
Rubrik Startad Senaste inlägg
"><% =RSShow("Rubrik") %>
<% If RSShow("PointGiven") = True Then %> <% End If %> <% If RSShow("TOpen") = True Then %>Tråden är Öppen!
<% End If %> <% If RSShow("TSolved") = True Then %>Tråden är Löst!!
<% End If %> <% If RSShow("TClosed") = True Then %>Tråden är Stängd!
<% End If %> <% If RSShow("TLocked") = True Then %>Tråden är Låst!!
<% End If %> Ant. svar: <% =RSShow("CountPost") %>
Ant. visningar: <% =RSShow("CountView") %>
Av "><% =RSShow("MemNick") %>
<% =RSShow("Datum") %>
<% If IsNull(RSShow("LastDate")) = False Then %>Av "><% =RSLastName("LastNick") %>
<% =RSShow("LastDate") %><% Else %>-<% End If %>

<% Call PageNavigation(intPage, intTotalPages) Else %>

Inga Trådar hittades i denna Kategori...

<% End If %>