<% strCheckAdmin = Mid(Session("SbNuAdmin"), 11, 1) %> <% Set RSShow = Server.CreateObject("ADODB.Recordset") Visa = "SELECT * FROM tblArticleCat WHERE Deleted = False ORDER BY Ordning, Name, ID " RSShow.Open Visa, Connect, adOpenStatic, adLockOptimistic %>

Skivbaren.nu's Artiklar!

Här finns lite musikrelaterade Artiklar!

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

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

<% If RSShow.EOF Then %> <% Else %> <% Do Until RSShow.EOF %> <% strCatID = 0 Count = 0 RSCount.Close RSShow.MoveNext Loop RSShow.Close End If %>

Inga Kategorier hittade...

Kategorier
<% strCatID = RSShow("ID") Set RSCount = Server.CreateObject("ADODB.Recordset") Count = "SELECT ID FROM tblArticle WHERE CatID = " & strCatID & " AND Deleted = False AND Verified = True " RSCount.CursorLocation = adUseClient RSCount.Open Count, Connect, adOpenDynamic, adLockOptimistic %> "><% =RSShow("Name") %>
<% =RSShow("Info") %> <% If strCheckAdmin = "1" Then %>
">  "> <% End If %>
Innehåller <% If RSCount.EOF Then %><% Response.Write "0" %><% Else %><% =RSCount.RecordCount %><% End If %> <% If RSCount.RecordCount <> 1 Then %>Artiklar<% Else %>Artikel<% End If %>...