<%
'################################################# ##################
'# Image Gallery v1.0
'#
'# This script will automatically create links for thumbs
'# and links to the full image. You just need to upload the
'# Full Image and the Thumbnail in the right directories.
'# All underscores ('_') in directories & FileNames will be
'# replaced by Spaces. The FileName will apear on top of the
'# page when you view the full Image.
'#
'# It will create a Previous & Next link to limit the amount
'# of thumbs showed on a page and also when you view a Full
'# Image. This way you don't need to return to the thumbs.
'#
'# Created by Sebastien Morel
'# Contact me on '
[email protected]' for bugs or comments
'################################################# ##################
Dim myFolder 'name of main folder where pictures are in
Dim ImageRow 'Set how many images are displayed/row
Dim ImageLimit 'Set how many thumbs are displayed/page
Dim FullImageDir 'set the folder where the full images are stored
'******** change this *********
myFolder = "galerias"
ImageRow = 3
ImageLimit = 12
FullImageDir = "fotos"
'******************************
Dim objFSO 'instance of FileSystemObject component
Dim objFile 'a file under the individual pictures folder
Dim objFolder 'access the current folder
Dim objPicturesFolder 'to access the main picture folder
Dim collPicturesFolders 'collection of folders under pictures folder
Dim indPicturesFolder 'a folder in the folders collection
Dim myFolderPath 'full path of pictures folder
Dim ImageFilePath 'specific folder to show from request
Dim indPicturesFolderSpaces 'Displays the folder name with spaces
Dim strFileExtension 'Get the extension of the files in the directory
Dim Counter 'Counts how many images were displayed
Dim Folder 'Request the folder from previous page
Dim FileNbr 'The filenameNumber of the image to be shown
Dim FileNameSpaces 'The description of the image to be shown with spaces
Dim imgCurrentBaseName 'Current basefilename in the loop
Dim StartPosition 'The # of the image where to start display
Dim lImgCounter 'The current image count/page
Dim ThumbPreviousLink 'Builds up the Previous Page Link
Dim ThumbNextLink 'Builds up the Next Page Link
Dim ShowImageLink 'This will show the requested full image
Dim CurrentFileName 'Request the current FileName in the loop
Dim Author
%>