<%@LANGUAGE="VBSCRIPT" CODEPAGE="1252"%> Martial Arts Image gallery


Click image to enlarge

Page 1 , 2 , 3 , 4, 5

Click images

<% 'Pause to show background 'Dim i, counter 'for i = 1 to 150000 'counter = 1 + counter 'next Dim strPicArray 'NUMBER OF THUMBNAILS TO DISPLAY IN A ROW picsInRow = 3 '//PATH TO THUMBNAILS// thumbFilePath = "images/thumbs/" '//PATH TO IMAGES// imageFilePath = "images/" 'PHYSICAL PATH TO THUMBNAILS Dim thePath thePath = Server.MapPath("images\thumbs\") strPhysicalPath=thePath 'strPhysicalPath="E:\Virtuals\urbansurvivors\trex\images\thumbs\" Set fso = CreateObject("Scripting.FileSystemObject") set mainfolder=fso.GetFolder(strPhysicalPath) Set filecollection = mainfolder.Files Response.Write "
" Response.Write "
" 'Response.Write Ucase(mainfolder.Name) response.write "" intTotPics = 0 For Each file In filecollection intTotPics = intTotPics + 1 Next Redim strPicArray(2,intTotPics) 'Store picture file names in an array x = 0 For Each file in filecollection strPicArray(0,x) = file.Name x = x + 1 Next For x = 0 to UBound(strPicArray,2)-1 Response.Write "" intPicNo = intPicNo + 1 If intPicNo=picsInRow Then Response.write "" intPicNo = 0 End If Next Response.Write "
" Response.Write "" Response.Write "
" Response.Write "
" Response.Write "
Total Number of Pictures
" & intTotPics & "
" %>