 |
 Dog Training Photo Gallery
<%Dim fso
Set fso = Server.CreateObject("Scripting.FileSystemObject")
Dim rootFolder
Set rootFolder = fso.GetFolder(Server.MapPath("/images/imagegallery/smalls/"))
Dim files
Set files = rootFolder.Files
dim tabcount
tabcount=0
For Each file in files
tabcount=tabcount+1
if tabcount=6 then
response.Write(" ")
tabcount=1
end if
newFileName=Replace(file.name, ".jpg", "")
newFileName=Replace(newFileName, "ck", "")%>
 |
<%next
set fso=nothing
set rootfolder=nothing
set files=nothing%>
All photos © Canine Kindergarten
|  |
 |
 |
 |
 |
|