ODO Foto-archief

Op de website van ODO staan aardig wat foto’s van verschillende activiteiten door de jaren heen. In seizoen 2012/2013 is een begin gemaakt met het archiveren van alle foto’s op hoge resolutie op Flickr. Heb je nu foto’s gemaakt van een wedstijd of activiteit neem dan contact op met de webmasters om deze te uploaden in de photostream. Juist ook als het foto’s van meer dan tien jaar terug zijn!

Oude fotoalbum's

<% If IsSeizoen(request.QueryString("seizoen")) Then sSeizoen = request.QueryString("seizoen") Else sSeizoen = BepaalSeizoen End If BepaalBeheerDB SQL1 = "SELECT DISTINCT seizoen FROM Albumlijst ORDER BY seizoen DESC" set Seizoenlijst = MakeRecordSet(BeheerDB,SQL1) %>

Fotoalbum toevoegen

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 Albumlijst.AlbumID, Albumlijst.Datum, Albumlijst.omschrijving, Albumlijst.seizoen, Albumlijst.Albumnaam, Albumlijst.zichtbaar, MIN(Fotolijst.locatie) AS locatie, COUNT(Fotolijst.AlbumID) AS Aantalfotos FROM Albumlijst LEFT JOIN Fotolijst ON Albumlijst.AlbumID = Fotolijst.AlbumID WHERE Albumlijst.AlbumID > 10 AND Albumlijst.seizoen = '" & sSeizoen & "' GROUP BY Albumlijst.AlbumID, Albumlijst.Datum, Albumlijst.omschrijving, Albumlijst.seizoen, Albumlijst.Albumnaam, Albumlijst.zichtbaar ORDER BY datum desc" 'SQL = "SELECT Albumlijst.AlbumID, Albumlijst.Datum, Albumlijst.omschrijving, Albumlijst.seizoen, Albumlijst.Albumnaam, Albumlijst.zichtbaar, TOP 1 RND([AlbumID]) AS locatie, COUNT(Fotolijst.AlbumID) AS Aantalfotos FROM Albumlijst LEFT JOIN Fotolijst ON Albumlijst.AlbumID = Fotolijst.AlbumID WHERE Albumlijst.AlbumID > 10 GROUP BY Albumlijst.AlbumID, Albumlijst.Datum, Albumlijst.omschrijving, Albumlijst.seizoen, Albumlijst.Albumnaam, Albumlijst.zichtbaar ORDER BY datum desc" set Albumlijst = MakeRecordSet(BeheerDB,SQL2) Seizoen = 0 odd_even = "odd" Do While Not Albumlijst.EOF If Albumlijst("zichtbaar") = True OR CheckRecht(session("name"),"loginbeheer") = True Then If Seizoen <> Albumlijst("seizoen") Then response.Write("

" & Albumlijst("seizoen") & "

") Seizoen = Albumlijst("seizoen") odd_even = "odd" End If Select Case Albumlijst("Aantalfotos") Case 0 sAantalfotos = "leeg" Case 1 sAantalfotos = "1 foto" Case Else sAantalfotos = Albumlijst("Aantalfotos") & " foto's" End Select If CheckRecht(session("name"),"loginbeheer") = true Then Beheerfunctie1 = "" Beheerfunctie2 = "" If Albumlijst("zichtbaar") = false Then Beheerfunctie3 = "" Else Beheerfunctie3 = "" End If Beheerfuncties = " " End If %> <% If Albumlijst("Aantalfotos") <> 0 Then %>

');" OnMouseOut="Javascript:ChangeVisibility('<%=AlbumLijst("AlbumID")%>');" onMouseMove="Javascript:SetPositionToPointer('<%=AlbumLijst("AlbumID")%>',20,-280,event);"> <% If Not Albumlijst("zichtbaar") Then response.Write("(onzichtbaar) ")%>"><%=Albumlijst("Albumnaam")%> <%=Day(Albumlijst("Datum")) & " " & MonthName(Month(Albumlijst("Datum")))%> <%=sAantalfotos%> <%=Beheerfuncties%>
<%=Albumlijst("omschrijving")%>

" class="fotopopup">

" border="0">

<% Else %>

<% If Not Albumlijst("zichtbaar") Then response.Write("(onzichtbaar) ")%>"><%=Albumlijst("Albumnaam")%> <%=Day(Albumlijst("Datum")) & " " & MonthName(Month(Albumlijst("Datum")))%> <%=sAantalfotos%> <%=Beheerfuncties%>
<%=Albumlijst("omschrijving")%>

<% End If %> <% If odd_even = "odd" Then odd_even = "even" Else odd_even = "odd" End If Albumlijst.Movenext Loop call CloseDB() %>