") 'response.Write(""&vbcrlf) i=(page*photosPerPage)-photosPerPage for x=1 to 3 for y=1 to 3 if y=1 then response.Write(""&vbcrlf) else response.Write(""&vbcrlf) end if next next response.Write("") end function %>

Home Calendar of Events FAQ/Parents Info. Wrestling Terms Photo/Video Gallery Board of Directors Coaches Corner/Tips Tournament Locations Corporate Sponsors Links	<% photosPerPage=9 page=request("page") if page="" then page=1 'set up the image array dim photoArray() imgCount=1 photoPath=server.MapPath("photos") set filesys=server.CreateObject("scripting.filesystemobject") set photoFolder=filesys.GetFolder(photoPath) set fileColl=photoFolder.files for each fil in fileColl fileName=fil.name if left(fileName,3)="th_" then redim preserve photoArray(imgCount) photoArray(imgCount-1)=right(fileName,len(fileName)-3) imgCount=imgCount+(1) end if next %> <% call photoGallery() %> <% '------------------------------ function photoGallery() '------------------------------ '12 photos per page... lastPhoto=page*photosPerPage firstPhoto=lastPhoto-11 totalPhotos=ubound(photoArray) if page=1 then prevPg=1 else prevPg=page-1 end if 'if lastPhoto>totalPhotos then lastPhoto=totalPhotos if lastPhoto+(1)>totalPhotos then nextPg=page else nextPg=page+(1) end if '4 across and 3 down 'arrow links response.Write("
") response.Write("<<< Previous Page") response.Write("  "&page&"  ") response.Write("Next Page >>>"&vbcrlf) response.Write("
First: "&firstPhoto&" Last: "&lastPhoto&" Total: "&totalPhotos&" Current: "&page&" Next: "&nextPg&" Prev: "&prevPg&"
"&vbcrlf) else response.Write("	"&vbcrlf) end if if i"& _ ""&vbcrlf) else response.Write(" ") end if i=i+1 if y=3 then response.Write("
") response.Write("<<< Previous Page") response.Write("  "&page&"  ") response.Write("Next Page >>>"&vbcrlf) response.Write("