<% Global sev, sho, snap, sora Dim ev, ho, nap, ora, f, i, button, akcio, kep if request.item("start") = 1 then sev = "" sho = "" snap = "" sora = "" kep = "" end if akcio = "archivefelso.asp" button = "Select Year" // ev beallitas FileArray "old", ev if request.item("ev") <> "" then sev = request.item("ev") end if if Ubound(ev) = 1 then sev = "2003" end if if sev <> "" then button = "Select Month" FileArray "old/"&sev, ho end if // honap beallitas if request.item("ho") <> "" then sho = request.item("ho") end if if sho <> "" then button = "Select Day" FileArray "old/"&sev&"/"&sho&"/", nap end if // nap beallitas if request.item("nap") <> "" then snap = request.item("nap") end if if snap <> "" then button = "Select Image" FileArray "old/"&sev&"/"&sho&"/"&snap&"/", ora end if // ora-perc beallitas if request.item("ora") <> "" then sora = request.item("ora") end if if sora <> "" then button = "New Image" kep = "old/"&sev&"/"&sho&"/"&snap&"/"&sora end if // button beallitas modositas eseten if request.item("ev") <> "" and request.item("ev") <> sev then button = "Select Month" end if if request.item("ho") <> "" and request.item("ho") <> sho then button = "Select Day" end if if request.item("nap") <> "" and request.item("nap") <> snap then button = "Select Image" end if %>
<% if kep <> "" and Exists(kep) then %>
Click to enlarge
<% end if %>
(Start again)