<%@LANGUAGE="VBSCRIPT" CODEPAGE="1252"%>
<%
iFotoID = Cint(Request.QueryString("FotoID"))
iAlbumID = Cint(Request.QueryString("AlbumID"))
BepaalBeheerDB
'SQL = "SELECT * FROM Fotolijst WHERE FotoID = " & Cint(Request.QueryString("FotoID"))
'set Foto = MakeRecordSet(BeheerDB,SQL)
SQLAlbum = "SELECT * FROM fotolijst WHERE albumID = " & iAlbumID & " ORDER BY FotoID ASC"
set FotoLijst = MakeRecordSet(BeheerDB,SQLAlbum)
If FotoLijst.RecordCount = 0 Then
Response.Write("Album niet gevonden")
REsponse.End()
End if
FotoLijst.MoveFirst
FotoLijst.Find("FotoID = " & iFotoID)
If FotoLijst.EOF OR FotoLijst.BOF Then
Response.Write("Foto niet gevonden")
response.End()
End If
iHoogte = FotoLijst("Hoogte")
iBreedte = FotoLijst("Breedte")
HuidigID = FotoLijst("FotoID")
Locatie = FotoLijst("Locatie")
Bijschrift = FotoLijst("Bijschrift")
If FotoLijst.AbsolutePosition = 1 Then
VorigID = ""
Else
FotoLijst.MovePrevious
VorigID = "<< Vorige Foto"
End IF
FotoLijst.Find("FotoID = " & iFotoID)
If Fotolijst.AbsolutePosition = Fotolijst.RecordCount Then
VolgendID = ""
Else
FotoLijst.MoveNext
VolgendID = "Volgende Foto >>"
End If
FotoLijst.Find("FotoID = " & iFotoID)
%>
Foto <%=HuidigID & " (" & iBreedte & " x " & iHoogte%>)
| <%=VorigID%> | <%=VolgendID%> |
