Naturbahnrodelweltmeister Gerhard Pilz

<%@LANGUAGE="VBSCRIPT"%> <% Option Explicit Dim strPhysicalPath Dim objFSO, objFolder, objFiles, objFile Dim i, m ' create a system file object Set objFSO = Server.CreateObject("Scripting.FileSystemObject") ' create an object for the folder strPhysicalPath = server.mappath("\") & "/images/barchiv/klein" Set objFolder = objFSO.GetFolder(strPhysicalPath) Set objFiles = objFolder.Files %> Naturbahnrodelweltmeister Gerhard Pilz


	Über mich
	Rodelsport
	Bergsteigen
	Sponsoren
	Links

Expeditionsberichte Bergsteckbrief > Bilderarchiv <

Bilderarchiv Bergtouren

<% i = 0 For Each objFile in objFiles if i = 0 then Response.Write("")%> <% i = i + 1 if i = 3 then Response.Write("") i = 0 end if Next if i > 0 then for m = i to 2 response.write("") next response.write("") end if %>
<% response.write(" onclick="javascript:popup('bild.asp','bild', 'width=597,height=780,directories=no,toolbar=no,location=no, menubar=no,scrollbars=yes,status=no,resizable=no,dependent=no')"> <% response.write("") %>