Exhibit Photos

<% 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%> <%cnt = 0 for each x in fo if left(x.name,5)="thumb" then %> <% cnt=cnt+1 end if if cnt = 4 then cnt = 0 response.write("") response.write("") end if next set fo=nothing set f=nothing set fs=nothing %>

<%=replace(right(x.name,Len(x.name)-5)," ","%20")%>"> <%=replace(x.name," ","%20")%>" border=0 height=100 alt="Exhibit Photo">