<%
' $Date: 11/24/97 12:17p $
' $ModTime: $
' $Revision: 2 $
' $Workfile: themes.inc $
Sub ShowFolderList(folderspec)
Dim fs, f, f1, fc, s
Set fs = CreateObject("Scripting.FileSystemObject")
Set f = fs.GetFolder(folderspec)
Set fc = f.SubFolders
s = "