Harry Potter's World: Renaissance Science, Magic, and Medicine
Photos from the Exhibit and Activities - Game Night
<% 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\HarryPotter\Photos") else set f=fs.GetFolder("c:\Inetpub\wwwroot\Exhibits\HarryPotter\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="Game Night"> |
<% cnt=cnt+1
end if
if cnt = 4 then
cnt = 0
response.write("|||