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

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