% ' Kies hier uw event Dim CurFile, PopFileShowSub, ShowPic, PictureNo Dim strPathInfo, strPhysicalPath Dim intTotPics, intPicsPerRow, intPicsPerPage, intTotPages, intPage, strPicArray() intPicsPerRow = 4 intPicsPerPage = 4 intPage = CInt(Request.QueryString("Page")) If intPage = 0 Then intPage = 1 End If CurFile = "PhotoAlbum.asp" PopFile = "ShowPicture.asp" %>