Hieronder een aantal foto's van ons bedrijf in het bosrijk buitengebied van Oisterwijk.
<%
dim fs,fo,x,Teller
set fs=Server.CreateObject("Scripting.FileSystemObject")
Pad = "fotos\thumbs\"
set fo=fs.GetFolder(Server.MapPath(Pad))
Teller = 0
for each x in fo.files
Teller = Teller + 1
Vulregels()
' Response.write(x.Name & "
")
next
set fo=nothing
set fs=nothing
%>