% response.CacheControl = "no-cache" Timeout2() %>
|
Attached Images
|
Available Images
|
<% Set fso = server.createobject("Scripting.FileSystemObject") Set folderSub = fso.GetFolder(server.mappath("..\..\images\content")) set fileCollection = folderSub.Files counter = 0 for each varFile in fileCollection if Left(varFile.Name, 4) = "sml_" then counter = counter + 1 %> <% end if Next Set fileCollection = Nothing Set folderSub = Nothing Set fso = Nothing %>