% 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 %>
Inga Kategorier hittade...
<% Do Until RSShow.EOF %>
Kategorier
<% strCatID = 0
Count = 0
RSCount.Close
RSShow.MoveNext
Loop
RSShow.Close
End If %>
<% 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 %>...