<%' Now to the Runtime code: Dim strPath 'Path of directory to show Dim objFSO 'FileSystemObject variable Dim objFolder 'Folder variable Dim objItem 'Variable used to loop through the contents of the folder albumintro = "heading.html" Set objFSO = Server.CreateObject("Scripting.FileSystemObject") if objFSO.FileExists(Server.MapPath(albumintro)) then Server.Execute(albumintro) end if %>
<% strPath = "./" ' Create our FSO Set objFSO = Server.CreateObject("Scripting.FileSystemObject") ' Get a handle on our folder Set objFolder = objFSO.GetFolder(Server.MapPath(strPath)) ' Show a little description line and the title row of our table %> <% For Each objItem In objFolder.SubFolders ' Deal with the stupid VTI's that keep giving our visitors 404's If InStr(1, objItem, "_vti", 1) = 0 Then %> <% End If Next 'objItem ' All done! Kill off our object variables. Set objItem = Nothing Set objFolder = Nothing Set objFSO = Nothing %>
PHOTO ALBUMS
"> <%= objItem.Name %> 
<% albumintro = "intro.html" Set objFSO = Server.CreateObject("Scripting.FileSystemObject") if objFSO.FileExists(Server.MapPath(albumintro)) then Server.Execute(albumintro) end if 'objFSO = Nothing %>

Select an album from the list on the left.

This page works with Internet Explorer 5 and Netscape 6
but cannot be guaranteed to work with older browsers.