Photos from the Exhibit and Activities - Traveling Exhibit
<% dim command command = trim(request.querystring("dir")) %> <% dim fs,f,fo,x,p,cnt set fs=Server.CreateObject("Scripting.FileSystemObject") if command = "" then set f=fs.GetFolder("c:\Inetpub\wwwroot\Exhibits\kente\photos") else set f=fs.GetFolder("c:\Inetpub\wwwroot\Exhibits\kente\photos\" & command) end if set fo=f.files%><%=replace(right(x.name,Len(x.name)-5)," ","%20")%>">
<%=replace(x.name," ","%20")%>" border=0 height=100 alt="Traveling Exhibit"> |
<% cnt=cnt+1
end if
if cnt = 4 then
cnt = 0
response.write("|||