<% Global jelszo if request.item("t1") = "chonan" and request.item("t2") = "bakabon" then jelszo = 1 end if if jelszo <> 1 then %>


<% else Dim i, n, f, ido, honap, kepek, text, skep // Kep torlese if request.item("del") <> "" then CopyFile request.item("del"), "archive/" & Mid(request.item("del"), 5) DeleteFile request.item("del") end if // oldal adatainak beallitas if Exists("image/image.jpg") then CopyFile "image/image.jpg", "old/" & secondstoDate(now(), "yyyymmddhhnn") & ".jpg" DeleteFile "image/image.jpg" end if FileArray "old/", kepek if request.item("kep" ) <> "" then skep = "old/" & request.item("kep") end if if skep = "" then skep = "old/" & kepek(Ubound(kepek)) end if %>

width="320" height="240">

Delete this image

<% // act folderbol a regi kepek torlese Dim kep FileArray "act/", kep For i = 1 to Ubound(kep) if Now() - FileModified("act/" & kep(i)) > 120 then DeleteFile "act/" & kep(i) end if next end if %>