<%
'###################################################################
'# 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
myFolderPath = Server.MapPath(myFolder)
%>
Photos
|
|
|
|
| |
| |
<%
Set objFSO = Server.CreateObject("Scripting.FileSystemObject")
If objFSO.FolderExists(myFolderPath) Then
'The main picture folder exists
Set objPicturesFolder = objFSO.GetFolder(myFolderPath)
Set collPicturesFolders = objPicturesFolder.SubFolders
For Each indPicturesFolder in collPicturesFolders
indPicturesFolderSpaces = Replace(indPicturesFolder.Name,"_"," ")
%> 
<%= indPicturesFolderSpaces %>
<%
Next
%> <%
Set collPicturesFolders = Nothing
Else
'The main picture folder does not exists
%> No se encuentra ninguna foto <%
End If
%> |
|
<%
Set objFSO = Nothing
Response.Flush
%>
