<% strCheckAdmin = Mid(Session("SbNuAdmin"), 10, 1) intPageSize = 25 intPage = Request.QueryString("page") If intPage = "" Then intPage = 1 %> <% Set RSShow = Server.CreateObject("ADODB.Recordset") If Request.QueryString("id") = "" Then Visa = "SELECT * FROM tblNews WHERE Deleted = False ORDER BY Datum DESC, ID DESC" Else Visa = "SELECT * FROM tblNews WHERE ID = " & Request.QueryString("id") & " ORDER BY Datum DESC, ID DESC" End If With RSShow .ActiveConnection = Connect .Source = Visa .PageSize = intPageSize .CursorType = 3 .LockType = 1 .Open End With %>

Musiknyheter & Uppdateringar!

Visa alla

<% If strCheckAdmin = "1" Then %> Lägg till Nyhet / Uppdatering

<% End If %>

<% RSShow.AbsolutePage = intPage intTotalPages = RSShow.PageCount Call PageNavigation(intPage, intTotalPages) %> <% If Not RSShow.EOF Then x = 1 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 Else %>

<% =RSShow("Rubrik") %>
( <% =RSShow("Datum") %> )

<% If strCheckAdmin = "1" Then %> ">  ">

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


Inga Nyheter / Uppdateringar hittade...

<% End If RSShow.Close Set RSShow = Nothing %>

<% Call PageNavigation(intPage, intTotalPages) %>