<% '################################################################### '# 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 'Dragonfly4@desertmail.com' for bugs or comments '################################################################### %> <%Option Explicit%> <% On Error Resume Next StartPosition = Request("imgCount") Folder = Request("Folder") ImageFilePath = myFolder + "/" + Request("Folder") indPicturesFolderSpaces = Replace(Folder,"_"," ") counter = 0 lImgCounter = 0 %> Vista en Pequeño

 ">Atras   Inicio


Vista en pequeño- <%= indPicturesFolderSpaces %> Inicio
<% Set objFSO = Server.CreateObject("Scripting.FileSystemObject") Set objFolder = objFSO.GetFolder(Server.MapPath(ImageFilePath)) For Each objFile In objFolder.Files strFileExtension = LCase(Mid(objFile.Name, InStrRev(objFile.Name, ".", -1, 1) + 1)) If strFileExtension = "gif" Or strFileExtension = "jpg" Then If (CLng(counter) >= CLng(StartPosition)) and (Clng(counter) < (CLng(StartPosition) + Clng(ImageLimit))) then lImgCounter = lImgCounter + 1 %> <% If (lImgCounter Mod Imagerow) = 0 Then Response.Write "" end if counter = counter + 1 End If Next ThumbNextLink = CLng(StartPosition) + Clng(lImgCounter) ThumbPreviousLink = CLng(StartPosition) - Clng(ImageLimit) %>
vspace="5" hspace="5" border="0">
<% If (CLng(StartPosition) >= CLng(ImageLimit)) Then %> <% End If %> <% If (CLng(StartPosition)) < (CLng(counter) - (CLng(ImageLimit))) Then %> <% End If %>
Anterior   Siguiente
<% Set objFolder = Nothing Set objFSO = Nothing %>