<% Response.Write "" TableVSpace 20 Response.Write "" ' TableVSpace 20 Dim objFSO Set objFSO = Server.CreateObject("Scripting.FileSystemObject") Dim strCurrentFolder strCurrentFolder = "C:\websites\runciman\grang4\albums\events\" Dim objFolder2,objFolder,objFile Set objFolder = objFSO.GetFolder(strCurrentFolder) For Each objFolder2 in objFolder.SubFolders Response.Write "" Next Response.Write "" Response.Write "

" Response.Write "If you have recently been involved in an event with Grange Photography and would like to view the pictures, click on the event type below." Response.Write "

" & objFolder2.Name & "

" %>