|
Gaby und Rudy |
Home | |
|
Livecams
von für uns besonders interessanten Orten
Für die neuesten Bilder
evt. auf "Aktualisieren" drücken
|
<%' Now to the Runtime code:
Dim strPath 'Path of directory to show
Dim objFSO 'FileSystemObject variable
Dim objFolder 'Folder variable
Dim objItem 'Variable used to loop through the contents of the folder
' You could just as easily read this from some sort of input, but I don't
' need you guys and gals roaming around our server so I've hard coded it to
' a directory I set up to illustrate the sample.
' NOTE: As currently implemented, this needs to end with the /
x=request("PATH")
If x = "" Then
x="."
End If
strPath = x & "/"
' Create our FSO
Set objFSO = Server.CreateObject("Scripting.FileSystemObject")
' Get a handle on our folder
Set objFolder = objFSO.GetFolder(Server.MapPath(strPath))
' Show a little description line and the title row of our table
%>
<%= strPath %>
Schlossturm Pfäffikon Niederschlagsradar
Wetterradar /Niederschlagsmengen:
Altendorf in Richtung Hurdnerwäldli und Lützelau
Surcuolm, Obersaxen
Wollerau
St. Moritz
Einsiedeln
Bettmeralp
Hörnli
Hotel Züriberg
Zürich Richtung See und Alpen
Monte Generoso, Tessin / Richtung Melide und San Salvatore
Appenzell, Schlatt Haslen Richtung Alpsteingebirge
Zürich vom Uetliberg aus
Fort Lauderdale, Florida
Eiffel Turm, Paris
Nizza, Frankreich
Port de Andratx, Mallorca
|
Copyright:
Die Bilder sind geschützt. |
Home | |
|
Jegliche
Verwendung der Informationen auf dieser Website, die über das Anschauen
auf dieser Website hinaus geht, ist verboten!
Zuwiderhandlungen werden gerichtlich verfolgt. |
|
|