<% option explicit dim objDateisystem dim objVerzeichnis dim objDateien dim objDatei dim strNextPic dim strPrevPic dim strActPic dim bolNext dim bolPrev strActPic = "" strNextPic = "" strPrevPic = "" bolNext = false bolPrev = true set objDateiSystem = Server.CreateObject("Scripting.FileSystemObject") set objVerzeichnis = objDateiSystem.GetFolder("d:\inetpub\ilz-flusslandschaft\diashow") Set objDateien = objVerzeichnis.Files ' wurde eine Bild ID mitgegeben? if not len(trim(request.querystring("pic"))) = 0 then 'zeige angegebenes Bild 'alle dateien durchgehen for each objDatei in objDateien if instr(objDatei.Name,".jpg") then if bolNext then strNextPic = objDatei.Name bolNext = false end if if objDatei.Name = request.querystring("pic") then 'neues aktuelles Pic strActPic = objDatei.Name bolNext = true bolPrev = false end if if bolPrev then strPrevPic = objDatei.Name end if End if next else 'zeige erstes bild 'alle dateien durchgehen for each objDatei in objDateien if instr(objDatei.Name,".jpg") then if bolNext then strNextPic = objDatei.Name bolNext = false end if if strActPic = "" then 'neues aktuelles Pic strActPic = objDatei.Name bolNext = true bolPrev = false end if if bolPrev then strPrevPic = objDatei.Name end if end if next end if %> Neue Seite 3
.
.

Romantisch und beeindruckend -

die Diashow
.

zurück|weiter