<% If Request.QueryString("albumID") = "" Then response.Redirect("Fotoalbum.asp?NoID") Else sAlbumID = Request.QueryString("albumID") End If BepaalBeheerDB SQLalbum = "SELECT * FROM albumlijst WHERE albumID = " & sAlbumID set Albumlijst = MakeRecordSet(BeheerDB,SQLalbum) If Albumlijst.Recordcount <= 0 Then response.Redirect("Fotoalbum.asp?AlbumNotFound") End If SQLfoto = "SELECT * FROM fotolijst WHERE albumID = " & sAlbumID & " ORDER BY FotoID ASC" set Fotolijst = MakeRecordSet(BeheerDB,SQLfoto) %>

<%=Albumlijst("albumnaam")%>

<< Terug naar de fotoalbums

Album: <%= Albumlijst("albumnaam") &" (" & day(Albumlijst("datum"))& " " & monthname(month(Albumlijst("datum"))) & " " & year(Albumlijst("datum")) & ")" %>
Fotograaf: <%= Albumlijst("Fotograaf") %>
Omschrijving: <%=Albumlijst("omschrijving")%>

<% If Fotolijst.Recordcount <= 0 Then response.write("Er zijn geen foto's gevonden in dit album") End If %> <% Kolomteller = 1 Do While Not Fotolijst.EOF If Kolomteller = 3 then response.Write("") Kolomteller = 1 End If If Fotolijst("thumbnail") Then 'sPopup = "JavaScript:popUpWindow('http://www.odomaasland.nl/fotos/Toonfoto.asp?FotoId=" & Fotolijst("FotoID") & "',100,100," & Fotolijst("breedte")+100-100 & "," & Fotolijst("hoogte")+100-100 & ")" 'sPopup = "JavaScript:window.open('http://www.odomaasland.nl/fotos/Toonfoto.asp?FotoId=" & Fotolijst("FotoID")& "', 'FotoNummer', 'toolbar=no,directories=no,status=no,menubar=no,scrollbars=no,resizable=no,copyhistory=yes,location=no,height="&Fotolijst("hoogte")&",width="&Fotolijst("breedte")&"');" %> <% Fotolijst.Movenext Kolomteller = Kolomteller + 1 Loop %>
">" border="0">
<% Else %> ">
<% End If %> <%=Fotolijst("bijschrift")%>

<% %>