<% action = Request("action") page = Request("page") folder_id = Request("folder_id") id = Request("id") jaar = Request("jaar") If Not IsNumber(page) Or page < 1 Then page = 1 If Not IsNumber(folder_id) And IsNumber(id) Then folder_id = id ElseIf Not IsNumber(folder_id) And Not IsNumber(id) Then folder_id = cHomeFolderID End If If Not IsNumber(jaar) Then jaar = Year(Date()) Select Case action Case "rss" showRss() Case Else showAll() End Select Private Sub showRss() 'tonen van de rss berichten sSQL = "SELECT P.id, P.titel, P.tekst, P.datum " & _ "FROM tbl_paginas P " & _ "LEFT JOIN tbl_categorie C ON C.id = P.categorie_id " & _ "WHERE (P.soort_id=2 OR P.soort_id=10) AND P.deleted=0 AND C.besloten=0 " & _ "ORDER BY P.datum DESC LIMIT 15" Set Rst = Server.CreateObject("ADODB.RecordSet") Rst.Open sSQL, con If Not Rst.EOF Then arr = Rst.GetRows() Rst.Close() Set tpl = New clsTpl With tpl .Row = "nieuws/rss_rij.html" For i = 0 To Ubound(arr,2) tekst = Replace(arr(2,i), "]", "") tekst = Replace(tekst, "[", "") tekst = stripLeft(tekst, 200, True) .AddRow() .Fill "{ID}", arr(0,i) .Fill "{TITEL}", arr(1,i) .Fill "{OMSCHRIJVING}", tekst .Fill "{DATUM}", formatDateTime(arr(3,i), 2) Next items = .Value() End With Set tpl = Nothing Else Rst.Close() End If Set Rst = Nothing Response.ContentType = "text/xml" Set tpl = New clsTpl With tpl .Tpl = "nieuws/rss.html" .Fill "{ITEMS}", items .Fill "{TITLE}", cTitle .Fill "{URL}", cUrl .Fill "{SITE}", cSite .Fill "{DATUM}", Date() .Output() End With Set tpl = Nothing End Sub Private Sub showAll() 'tonen van alle items (zowel on als offline), inclusief paging titel = "Nieuwsoverzicht" naam = "Nieuws" If cBesloten Then If IsArray(Session("gebruiker1")) Then sSQL = "SELECT id, titel, tekst " & _ "FROM tbl_paginas " & _ "WHERE soort_id=2 AND deleted=0 AND categorie_id<>61 AND YEAR(datum) = "& jaar &" " & _ "ORDER BY datum DESC" Else sSQL = "SELECT P.id, P.titel, P.tekst " & _ "FROM tbl_paginas P " & _ "LEFT JOIN tbl_categorie C ON C.id = P.categorie_id " & _ "WHERE P.soort_id=2 AND P.deleted=0 AND C.besloten=0 AND P.categorie_id<>61 AND YEAR(datum) = "& jaar &" " & _ "ORDER BY P.datum DESC" End If Else If action = "pers" Then sSQL = "SELECT id, titel, tekst FROM tbl_paginas WHERE categorie_id = "& folder_id &" AND deleted=0 AND categorie_id<>61 ORDER BY datum DESC" titel = "Persoverzicht" naam = "Pers" Else sSQL = "SELECT id, titel, tekst FROM tbl_paginas WHERE soort_id=2 AND deleted=0 AND categorie_id<>61 AND YEAR(datum) = "& jaar &" ORDER BY datum DESC" End If End If Set Rst = Server.CreateObject("ADODB.RecordSet") Rst.Open sSQL, con If Not Rst.EOF Then arr = Rst.GetRows() Rst.Close() 'waardes voor de paging e.d. ophalen en zetten pageSize = 10 records = Ubound(arr,2) + 1 If records < pageSize Then pageSize = records If records = 0 And pageSize = 0 Then pages = 1 Else pages = RoundUp(records/pageSize, 0) If Int(page) > Int(pages) Then page = pages paging = getPaging(pages, page, "nieuws.asp?folder_id="& folder_id &"&") End If begin = (page - 1) * pageSize eind = begin + pageSize 'nu checken of het einde wel goed ingesteld is If eind > records Then eind = records Set tpl = New clsTpl With tpl .Row = "nieuws/nieuws_rij.html" For i = begin To eind - 1 .AddRow() .Fill "{ID}", arr(0,i) .Fill "{TITEL}", arr(1,i) .Fill "{TEKST}", stripLeft(arr(2,i), 100, True) .Fill "{TARGET}", cTarget Next rv = .Value() End With Set tpl = Nothing Else Rst.Close() rv = "Er is geen "& titel &"." End If Set Rst = Nothing 'nu de content met de paginainhoud vullen en in een lege template weergeven Set tpl = New clsTpl With tpl .Tpl = "nieuws/nieuws.html" .Fill "{NIEUWS}", rv .Fill "{PAGING}", paging content = .Value() End With Set tpl = Nothing Call showPage(titel, content, 0, folder_id, True, True) End Sub %>