%
set fObj=server.createobject("scripting.filesystemobject")
myLocalDir=server.mappath(".")
set flds=fObj.getfolder(myLocalDir)
for each fld in flds.subfolders
response.write(fld.name & "
")
next
for each fld in flds.files11:29 AM 11/28/2001
response.write(fld.name & "
")
next
%>