Webcam
Jungfrau from Unterseen
 
 

   
<% Dim i, f, n, ido, honap, kepek, text, skep FileArray "old/", kepek if skep = "" then skep = kepek(Ubound(kepek)) end if if request.item("kep" ) <> "" then skep = request.item("kep" ) end if skep = "old/" & skep if request.item("snap") = 1 then if Now() - FileModified("image/image.jpg") < 65 then skep = "act/" & secondstoDate(now(), "hhnnss") & ".jpg" CopyFile "image/image.jpg", skep else text = "Please try later" skep = "" end if end if %>
   
Bank EKI

Unterseen Gemeinde

 
width="320" height="240">