<% if request.form("form_codeword") <> "" then if request.form("form_codeword") = sitepass then session("loggedin") = "yes" else session("loggedin") = "" end if end if if request.querystring("logout") = "yes" then session("loggedin") = "" end if %> Gallery
 
<% if session("loggedin") = "yes" then %> <% else %> <% end if %>
  Modify Site Settings     Exit Admin Mode   Gallery!

<% Dim fs, f, sf, folderspec, filecount Set fs = CreateObject("Scripting.FileSystemObject") Set f = fs.GetFolder(sitepath) set sf = f.subfolders %> <% dim objFSO,objF,objFC, foldername, f1, rows rows = 0 For Each FolderName In sf filecount = 0 Set objFSO=Server.CreateObject("Scripting.FileSystemObject") Set objF=objFSO.GetFolder(sitepath & folderName.name & "\pics\") Set objFC = objF.Files For Each f1 in objFC filecount = filecount +1 NEXT %> <% dim r r = rows Mod numcols if r = (numcols - 1) then response.write("") end if rows = rows +1 NEXT %>
"yes" then %> style="cursor:hand;border:1px solid navy;" onClick="document.location='gallery.asp?gallery=<%= folderName.name %>¤tpage=1'" <% end if %> style="border:1px solid navy;" onMouseOver="highlight(this);" onMouseOut="unhighlight(this);"> <% if session("loggedin") = "yes" then %>
<%= folderName.name %>
<% else %> <%= folderName.name %> <% end if %> <% if session("loggedin") = "yes" then %> <% end if %> <% if session("loggedin") = "yes" then %> <% end if %>
Number of images: <% if filecount = 0 then %>Empty<% else %> <%= filecount %> <% end if %>
Created on: <%= folderName.DateCreated %>
Contains: <%= round( folderName.Size/1000) %>Kbs

  
<% set f = nothing set fs = nothing set sf = nothing set objFSO = nothing set objF = nothing set objFC = nothing %>