<% sub displayFolders() %>

<% if Session("LANG") = "es" then %> Fotos <% else %> Photos <% end if %>

<% if Session("LANG") = "es" then %>

El la lista abajo, los fotos añadido mas recentemente estan ariba de todo. También hay un versión Flash de este página disponible.

<% else %>

The list below shows most recently added photos at the top. There is also an easy-to-use Flash based version of this page available.

<% end if %> <% dim fso,folders,folder,files,folderArray,count dim d,m,y,d2,m2,y2 set fso = Server.CreateObject("Scripting.FileSystemObject") set folder = fso.GetFolder(Server.MapPath("images")) set folders = folder.SubFolders d = "" m = "" y = "" redim folderArray(folders.Count-1) count = 0 for each folder in folders folderArray(count) = folder.name count = count + 1 next for count = uBound(folderArray) to lBound(folderArray) step -1 folder = folderArray(count) y2 = mid(folder,2,4) m2 = mid(folder,7,2) d2 = mid(folder,10,2) if y <> y2 or m <> m2 then if m <> "" then response.write "" end if if y <> y2 then if y <> "" then response.write "" end if if y <> y2 then y = y2 response.write "

" & y & "

" end if if y <> y2 or m <> m2 then m = m2 response.write "
• " & MonthName(cInt(m)) & "
  " end if d = d2 response.write "
  • " & d & " - " response.write Server.HTMLEncode(right(folder,len(folder)-13)) response.write "
  " & vbCRLF next if m <> "" then response.write "
" if y <> "" then response.write "

" response.write "" end sub sub displayThumbs(p) response.write "

" & Request.QueryString("d") & "

" if Session("LANG") = "es" then response.write "

Volver

" else response.write "

Return

" end if dim fso,folder,files,file,basename,ext,count,colCount dim fileList(),THUMBS_PER_LINE set fso = Server.CreateObject("Scripting.FileSystemObject") response.write p set folder = fso.GetFolder(Server.MapPath("images") & "/" & p) set files = folder.Files count = -1 for each file in files if lCase(right(file.name,4)) = ".jpg" then count = count + 1 redim preserve fileList(count) fileList(count) = file.name end if next set files = nothing set folder = nothing set fso = nothing THUMBS_PER_LINE = int(sqr(count+1)) if (THUMBS_PER_LINE * THUMBS_PER_LINE) < count+1 then THUMBS_PER_LINE = THUMBS_PER_LINE + 1 end if count = 0 colCount = 0 response.write "" & vbCRLF end sub if Request.QueryString("d") = "" then displayFolders else displayThumbs Request.QueryString("d") end if %>