% strCheckAdmin = Mid(Session("SbNuAdmin"), 3, 1) %> <% Set RSShow = Server.CreateObject("ADODB.Recordset") Visa = "SELECT * FROM tblLinkCat WHERE Deleted = False ORDER BY Ordning, Name, ID " RSShow.Open Visa, Connect, adOpenStatic, adLockOptimistic %>
Skivbaren.nu's Länkar!
Här finns länkar ut i vida världen som Skivbaren.nu rekommenderar!
<% If strCheckAdmin = "1" Then %>
Lägg till Kategori | 
Lägg till Länk
<% End If %>
Välj vad Du vill se genom att välja något av nedanstående:
Alla Länkar
...eller någon av följande kategorier:
<% Do Until RSShow.EOF %>
Kategorier
<% strCatID = 0
CountLink = 0
RSCountLink.Close
RSShow.MoveNext
Loop
RSShow.Close %>
<% strCatID = RSShow("ID")
Set RSCountLink = Server.CreateObject("ADODB.Recordset")
CountLink = "SELECT ID FROM tblLink WHERE CatID = " & strCatID & " AND Deleted = False AND Verified = True "
RSCountLink.CursorLocation = adUseClient
RSCountLink.Open CountLink, Connect, adOpenDynamic, adLockOptimistic %>
"><% =RSShow("Name") %>
<% =RSShow("Info") %>
<% If strCheckAdmin = "1" Then %>
">
">
<% End If %>
Innehåller <% If RSCountLink.EOF Then %><% Response.Write "0" %><% Else %><% =RSCountLink.RecordCount %><% End If %> <% If RSCountLink.RecordCount <> 1 Then %>Länkar<% Else %>Länk<% End If %>...