% 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("Rubrik") %> ( <% =RSShow("Datum") %> ) <% If strCheckAdmin = "1" Then %> "> "> <% End If %> <% =FormatStr(RSShow("Info")) %> |
Inga Nyheter / Uppdateringar hittade... |
---|
<% Call PageNavigation(intPage, intTotalPages) %>