<%
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 %>
bgcolor=#E1e1e1 <%end if%> valign="middle">
|
<% j = j + 1 %>
<% k = k + 1 %>
<% end if %>
<% if j = 6 then %>
<%j = 0%>
<%end if %>
<%next %>
<%
set fs=nothing
%>