<%
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")&"');"
%>
"> " border="0">
<%
Else
%>
 ">
<%
End If
%>
<%=Fotolijst("bijschrift")%>
|
<%
Fotolijst.Movenext
Kolomteller = Kolomteller + 1
Loop
%>
<%
%>