<% Response.Expires = -1 'asp altijd opnieuw van de server laten komen Response.Buffer = true 'asp in een keer laten zien dim dataXML Dim fso, ts dim outputfile dim objFSO1 dim objFSO2 dim fs, folder, file, item, url dim sequenzeteller dim aantalfotos dim fototeller dim mapIMAGES dim titeltje dim sequenze If Request.Querystring("albumID") > " " then Session("albumID") = Request.Querystring("albumID") Session("paginaIDfotoboek11") = 0 if Request.Querystring("paginaID") > 0 then Session("paginaIDfotoboek11") = Request.Querystring("paginaID") end if sequenze = 0 if Request.Querystring("sequenze") > 0 then sequenze = Request.Querystring("sequenze") if Request.Querystring("herstart") = "JA" then ' DOORGAAN else ' KOPIEER DIT PROGRAMMA NAAR DE UITVOERMAP, ZODAT HET FLASHOBJECT KAN WORDEN WEERGEGEVEN ' DAARNA HERSTARTEN set fs=Server.CreateObject("Scripting.FileSystemObject") outputfile = Session("HOMEDIRECTORY") & "\nl\fotoboek11.asp" fs.CopyFile outputfile, (Session("HOMEDIRECTORY") & "\XMLgallery\fotoboek11.asp") set fs=nothing Response.redirect "../XMLgallery/fotoboek11.asp?albumID=" & Request.Querystring("albumID") & "&submap=" & Request.Querystring("submap") & "&herstart=JA&toonframe=" & Request.Querystring("toonframe") & "&sequenze=" & sequenze & "&toonnamen=" & Request.Querystring("toonnamen") & "&paginaID=" & Session("paginaIDfotoboek11") & "&camera=" & Request("camera") end if %> <% dataXML = Session("XMLgallery") & "" hoogte = "100%" if Request.Querystring("toonframe") <> "NEE" AND Session("XMLgallery") > " " then for i = 1 to len(Session("XMLgallery")) if mid(Session("XMLgallery"), i, 13) = "stage_height=" then hoogte = mid(Session("XMLgallery"), (i + 14), 3) + 0 end if next end if If Request.Querystring("albumID") > " " then Session("albumID") = Request.Querystring("albumID") Session("paginaIDfotoboek11") = 0 albumID = Request.Querystring("albumID") submap = "" If Request.Querystring("submap") > " " then submap = Request.Querystring("submap") & "\" teller2 = 0 mapIMAGES = "JA" path = Session("HOMEDIRECTORY") & "images\" path = path & submap path = path & albumID & "\images\" fototeller = 0 ' response.write path & "
" ListFolderContents(path) ' response.write "
" ' response.write fototeller & "
" ' response.write aantalfotos & "
" ' response.write "-----------------------------------

" if fototeller = 0 then mapIMAGES = "NEE" ' WE KIJKEN VOOR DE ZEKERHEID OOK EVEN IN EEN MAPJE HOGER path = left(path, (len(path) - 7)) ' response.write path & "
" ListFolderContents(path) ' response.write "
" ' response.write fototeller & "
" ' response.write aantalfotos & "
" ' response.write "-----------------------------------

" end if SUB ListFolderContents(path) set fs = Server.CreateObject("Scripting.FileSystemObject") set folder = fs.GetFolder(path) aantalfotos = folder.Files.Count + 0 sequenzeteller = 0 for each item in folder.Files ' Response.write item.Name & "
" waarde = Lcase(right(item.Name, 4)) if waarde = ".jpg" OR waarde = ".bmp" OR waarde = ".gif" OR waarde = ".tif" OR waarde = "jpeg" then teller2 = teller2 + 1 ' OM DE X FOTO's WORDT ER 1 EXEMPLAAR GETOOND (BIJV. VOOR AFBEELDINGEN VAN BEWAKINGSCAMERA DIE TELKENS X BEELDJES OP DE FTP-SERVER PLAATST) if (sequenze + 0) > 1 then sequenzeteller = sequenzeteller + 1 end if fototeller = fototeller + 1 if sequenzeteller <= 1 then if Request("camera") > " " AND Lcase(item.Name) = Replace(Lcase(item.Name), Lcase(Request("camera")), "") then ' niets doen else titeltje = "" if sequenze > 1 OR Request.Querystring("toonnamen") = "JA" then titeltje = item.Name if mapIMAGES = "JA" then dataXML = dataXML & vbcrlf & Replace("", "\", "/") else dataXML = dataXML & vbcrlf & Replace("", "\", "/") end if end if end if ' Response.write sequenzeteller & "
" ' Response.write sequenze & "

" if (sequenze + 0)> 1 then if (sequenzeteller + 0) >= (sequenze + 0) then sequenzeteller = 0 end if end if next END SUB end if dataXML = dataXML & vbcrlf & "" waarde = "\XMLgallery\" if Session("HOSTINGPROVIDER") = "INTERNEDSERVICESxxxx" then waarde = "\nl\PICTURES\" outputfile = Session("HOMEDIRECTORY") & waarde & Request.Querystring("submap") & Request.Querystring("albumID") if (sequenze + 0) > 1 then outputfile = outputfile & sequenze outputfile = outputfile & "data.xml" Set objFSO1 = Server.CreateObject("Scripting.FileSystemObject") Set objFSO2 = objFSO1.createtextfile(outputfile) objFSO2.WriteLine dataXML objFSO2.close set objFSO2 = nothing set objFSO1 = nothing if Session("paginaIDfotoboek11") > 0 OR (Request.Querystring("paginaID") > " " AND (Request.Querystring("paginaID") + 0) > 0) then if Request.Querystring("paginaID") > 0 then Session("paginaIDfotoboek11") = Request.Querystring("paginaID") Session("nieuwspaginaIDTF") = Session("paginaIDfotoboek11") + 0 DATABASE_OPEN %> <% inputveld = nieuwsitem & "" %><% nieuwsitemFOTOBOEK11 = outputveld & "" DATABASE_CLOSE end if %> <% if Session("TITEL_SUBKEUZE") > " " then Response.write Session("TITEL_SUBKEUZE") & " - " else if Session("TITEL_HOOFDKEUZE") > " " then Response.write Session("TITEL_HOOFDKEUZE") & " - " end if end if Response.write Session("SITE-NAAM") %> "> <% if Request.Querystring("toonframe") <> "NEE" then %> <% end if %> <% if nieuwsitemFOTOBOEK11 > " " then Response.write nieuwsitemFOTOBOEK11 end if %>

Oops!

It looks like you don't have flash player 6 installed. Click here to go to Adobe download page.

<% if Request.Querystring("toonframe") <> "NEE" then %> <% end if %>