<% 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 & "" else dataXML = dataXML & vbcrlf & "" end if oRs.MoveNext Loop oRs.close Set oRs = Nothing end if DATABASE_CLOSE dataXML = dataXML & vbcrlf & "" waarde = "\XMLgallery\" if Session("HOSTINGPROVIDER") = "INTERNEDSERVICESxxxx" then waarde = "\nl\PICTURES\" outputfile = Session("HOMEDIRECTORY") & waarde & Session("albumID") & "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("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 %>

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 %>