<% path = Request.ServerVariables("PATH_TRANSLATED") 'find out the whole path for "pics" path = replace ( path, "2ndAnn.asp" , "images/2ndAnnImages/" ) Set fs=Server.CreateObject("Scripting.FileSystemObject") %>

<% k= 0 %> <% for i = 1994 to 2130 %> <% if (fs.FileExists( path & "DSCF" & i & ".jpg") )=true Then %> <% j = j + 1 %> <% k = k + 1 %> <% end if %> <% if j = 8 then %> <%j = 0%> <%end if %> <%next %>
bgcolor=#E1e1e1 <%end if%> valign="middle">
<% set fs=nothing %>