<% strCheckAdmin = Mid(Session("SbNuAdmin"), 3, 1) If Request.Form("catid") = "" Then strCat = Request.QueryString("catid") Else strCat = Request.Form("catid") End If intPageSize = 25 intPage = Request.QueryString("page") If intPage = "" Then intPage = 1 %> <% Set RSShow = Server.CreateObject("ADODB.Recordset") If Request.QueryString("what") = "all" Or Request.QueryString("what") = "" Then Visa = "SELECT tblLink.*, tblLinkCat.Name AS CatName FROM tblLink INNER JOIN tblLinkCat ON tblLink.CatID = tblLinkCat.ID WHERE tblLink.Deleted = False AND tblLink.Verified = True ORDER BY tblLink.Name" ElseIf Request.QueryString("what") = "search" Then Visa = "SELECT tblLink.*, tblLinkCat.Name AS CatName FROM tblLink INNER JOIN tblLinkCat ON tblLink.CatID = tblLinkCat.ID WHERE tblLink.CatID = " & strCat & " AND tblLink.Deleted = False AND tblLink.Verified = True ORDER BY tblLink.Name" End If With RSShow .ActiveConnection = Connect .Source = Visa .PageSize = intPageSize .CursorType = 3 .LockType = 1 .Open End With %>

<% If Request.QueryString("what") = "all" Or Request.QueryString("what") = "" Then %> Visar Alla Länkar!

<% Else If RSShow.EOF Then %> Visar vald Länkkategori.

<% Else %> Visar Länkar i Kategori: <% =RSShow("CatName") %>

<% End If End If %>
<% If Not RSShow.EOF Then RSShow.AbsolutePage = intPage intTotalPages = RSShow.PageCount Call PageNavigation(intPage, intTotalPages) %> <% x = 0 Do Until RSShow.EOF OR intCounter >= intPageSize intCounter = intCounter + 1 If x mod 2 = 0 Then bgcolor = "" & strTblBkgndM & "" Else bgcolor = "" & strTblBkgndL & "" End If %> <% x = x + 1 RSShow.MoveNext Loop RSShow.Close Set RSShow = Nothing %>
Länkinformation
" target="_blank"><% =RSShow("Name") %>
<% If strCheckAdmin = "1" Then %>
">  ">

<% End If %> Kategori: <% =RSShow("CatName") %>
Inlagt: <% =RSShow("Datum") %>

<% =FormatStr(RSShow("Info")) %>

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

Inga Länkar hittade...

<% End If %>