<%@ Language=VBScript %> <% dim par dim col, row dim c,r par = 30 searchPrefix = "" searchExt = "" linkExt = "" prefixLen = len(searchPrefix)+1 suffixLen = 7 path = Request.ServerVariables(par) 'Response.Write(" " & path) Set fs = CreateObject("Scripting.FileSystemObject") Set fi = fs.GetFile(path) Set fo0 = fi.ParentFolder set foc = fo0.SubFolders For Each fo0 in foc if fo0.name="foto" then set foc = fo0.SubFolders For Each fo in foc if fo.name<>"_a" then Response.Write(" " & fo.name & " ") Response.Write(" ") Set fc = fo.SubFolders For Each fi in fc name = fi.name if name<>"photos_list.asp" then if instr(name,searchExt)<>0 and instr(name,searchPrefix)=1 then shortName = mid(name,1,len(name)-4) url = fo.name & "/" & name dateMod = formatdatetime(fi.DateLastModified,vbShortDate) %> <%=name%> <% end if end if next Response.Write(" ") end if next end if next %>