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

<% k= 0 %> <% for i = 3212 to 7788 %> <% if (fs.FileExists( path & "DSC0" & 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 %>