<% select case Request.QueryString("year") case "2004" yearpath="2004/" yearurl="&year=2004" case else yearpath="" yearurl="" end select strPath = "images/photos/" & yearpath Set FileObject = Server.CreateObject("Scripting.FileSystemObject") inPath=Server.MapPath (strPath) Set objFolder = FileObject.GetFolder(inPath) '''''''''''''''''''''''''''''''''''''''' ' output the file list '''''''''''''''''''''''''''''''''''''''' ii=0 Set objCollection = objFolder.Files colcount = 1 For Each objItem in objCollection ii=ii+1 strName = objItem.Name strFile = Server.HTMLEncode(strName) intSizeB = objItem.Size intSizeK = Int((intSizeB/1024) + .5) if instr(strName, ".jpg")<>0 then urlpath=strPath & strName strfile="" fileid=lcase(replace(strname,".jpg","")) fileid=replace(fileid,"pict","") 'strfile="" & strfile & "" 'strfile=" " & strfile & "" %> <% colcount = colcount+1 if colcount=5 then colcount=1 %> <% end if end if %> <%next do while colcount<5 %> <% colcount = colcount+1 loop %>
Click on thumbnails for larger image
<%=strfile %>
 
back
 
 
Site contents ©2003-2005 Matty Eappen Foundation - Site maintained by SurfersNet.com
 
Our Mission Who is Matty? What is SBS? Resources News & Events Milestones Our Team Donations HELP Contact