%
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 pictureIDgroot
If Request.Querystring("albumID") > " " then Session("albumID") = Request.Querystring("albumID") + 0
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\fotoboek10.asp"
if Session("HOSTINGPROVIDER") = "INTERNEDSERVICESxxxx" then
fs.CopyFile outputfile, (Session("HOMEDIRECTORY") & "\nl\PICTURES\fotoboek10.asp")
set fs=nothing
Response.redirect "../nl/PICTURES/fotoboek10.asp?albumID=" & Session("albumID") & "&herstart=JA&toonframe=" & Request.Querystring("toonframe") & "&menu=" & Request("menu") & "&menuID=" & Request("menuID")
else
fs.CopyFile outputfile, (Session("HOMEDIRECTORY") & "\XMLgallery\fotoboek10.asp")
set fs=nothing
Response.redirect "../XMLgallery/fotoboek10.asp?albumID=" & Session("albumID") & "&herstart=JA&toonframe=" & Request.Querystring("toonframe") & "&menu=" & Request("menu") & "&menuID=" & Request("menuID")
end if
end if
%>
<%
If Request.Querystring("albumID") > " " then Session("albumID") = Request.Querystring("albumID") + 0
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
teller = 0
DATABASE_OPEN
statement = "SELECT * FROM fotoboek WHERE albumID = " & Session("albumID") & " ORDER BY volgnummer"
if Session("albumID") > 0 then
Set oRs = oConn.Execute(statement)
Do while (Not oRs.eof)
tekst = ""
if oRs("omschrijving") > " " then tekst = Replace(oRs("omschrijving") & "", vbcrlf, " ")
if tekst > " " then tekst = Replace(tekst, """", "")
outputveld = tekst
%><%
tekst = outputveld
outputveld = oRs("pictureIDgroot")
%><%
pictureIDgroot = outputveld
if Session("HOSTINGPROVIDER") = "INTERNEDSERVICESxxxx" then
dataXML = dataXML & vbcrlf & "
It looks like you don't have flash player 6 installed. Click here to go to Adobe download page.