|
|
Teddy Bear Drop Off
This article is courtesy of "The Windsock News" and may be viewed in its entirely here.
(select December 22nd 2005 and proceed to page 3)
<%
Set objFSO = CreateObject("Scripting.FileSystemObject")
sMapPath = server.mapPath("/teddybear/thumbs/")
Set objFolder = objFSO.GetFolder(sMapPath)
i=1
response.write("")
For Each objFile in objFolder.Files
myString = objFile.Name
response.write("")
response.write("")
response.write("![](/teddybear/thumbs/")
response.write(myString)
response.write(") ")
response.write(" | ")
if i = 4 then
response.write(" ")
i = 1
else
i = i + 1
end if
next
do until i > 4
response.write("| | ")
i = i + 1
loop
response.write(" ")
Set objFSO = Nothing
Set objFolder = Nothing
%>
 |
|
