%
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("
"
' 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
%>
It looks like you don't have flash player 6 installed. Click here to go to Adobe download page.