%
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 %>
Modify Site Settings
Exit Admin Mode
<% else %>
Gallery!
<% end if %>
<%
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 %>
"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 %>
Number of images:
<% if filecount = 0 then %>Empty<% else %> <%= filecount %> <% end if %>
Created on:
<%= folderName.DateCreated %>
Contains:
<%= round( folderName.Size/1000) %>Kbs
<% if session("loggedin") = "yes" then %>
<% end if %>
<%
dim r
r = rows Mod numcols
if r = (numcols - 1) then
response.write("
")
end if
rows = rows +1
NEXT
%>
<%
set f = nothing
set fs = nothing
set sf = nothing
set objFSO = nothing
set objF = nothing
set objFC = nothing
%>