Loading images
<%
'declare variables
dim fso, fsodir, ourDir, ourItem
'declare the folder
ourDir = "folderName"
'prepare the system variables
Set fso = Server.CreateObject("Scripting.FileSystemObject")
Set fsodir = fso.GetFolder(Server.MapPath("images/photos/"))
'loop through the files
for each ourItem in fsodir.Files %>
<%
//response.write("file: " & ourItem.Name & "
") next 'clean up server variables Set ourItem = nothing Set fsodir = nothing Set fso = nothing %>
<%
//response.write("file: " & ourItem.Name & " ") next 'clean up server variables Set ourItem = nothing Set fsodir = nothing Set fso = nothing %>