webcam
 
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">
 
 



ZeninWar