<% BepaalBeheerDB If IsSeizoen(request.QueryString("seizoen")) Then sSeizoen = request.QueryString("seizoen") Else sSeizoen = BepaalSeizoen End If %>

Krantenknipsels seizoen <%=sSeizoen%>

<% SQL1 = "SELECT krant.seizoen FROM krant GROUP BY krant.seizoen ORDER BY krant.seizoen DESC" set Seizoenlijst = MakeRecordSet(BeheerDB,SQL1) Response.Write("Seizoen: ") Do While Not Seizoenlijst.EOF If Seizoenlijst.AbsolutePosition <> 1 Then Response.Write(" / ") End If If sSeizoen = Seizoenlijst("seizoen") Then Response.Write(Seizoenlijst("seizoen")) Else Response.Write("" & Seizoenlijst("seizoen") & "") End If Seizoenlijst.movenext Loop %>

<% SQL2 = "SELECT * FROM krant WHERE seizoen = '" & sSeizoen & "' ORDER BY Datumartikel DESC, FotoID ASC" Set ArtikelLijst = MakeRecordSet(BeheerDB,SQL2) odd_even = "odd" Do While Not ArtikelLijst.EOF iBreedte = cint(ArtikelLijst("breedte")) iHoogte = cint(ArtikelLijst("hoogte")) sDatum = FormatDateTime(ArtikelLijst("DatumArtikel")) %> <% If odd_even = "odd" Then odd_even = "even" Else odd_even = "odd" ArtikelLijst.Movenext Loop %>

<%=Day(sDatum) & " " & MonthName(Month(sDatum))%>

',<%=iBreedte%>,<%=iHoogte%>);"><%=ArtikelLijst("Titel")%> <% IF checkrecht(session("name"),"krant") Then response.write(" (Wijzigen)") End If %>

<% call CloseDB() %>