|
Timmerman
Machining Inc
|
|
P.O.
Box 12
|
|
Oxford,
MI 48371
|
|
tel
248.969.9591
|
|
<%
Dim strPath
Dim objFSO
Dim objFolder
Dim objItem
Dim numFiles
on Error Resume Next
strPath = "./photos/thumbnails"
' Create our FSO
Set objFSO = Server.CreateObject("Scripting.FileSystemObject")
' Get a handle on our folder
Set objFolder = objFSO.GetFolder(Server.MapPath(strPath))
numFiles = 0
For Each objItem In objFolder.Files
numFiles = numFiles + 1
Next
Set objItem = Nothing
Set objFolder = Nothing
Set objFSO = Nothing
lastP = numFiles
i = 1
While i < LastP+1
%>
![[Click to enlarge image]](photos\thumbnails\t-<%=i%>.jpg)
|
<%
if int(i/5)=i/5 then
%>
<%
end if
%>
<%
i = i + 1
Wend
%>
|
|
