<%
'################################################# ##################
'# 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
'################################################# ##################
%>
<!--#INCLUDE FILE="includes/inc_Common.asp" -->
<%
On Error Resume Next
myFolderPath = Server.MapPath(myFolder)
%>
<table border="0" cellpadding="0" cellspacing="0" width="100%" align="center">
<tr>
<td class="header" align="left" width="20"><img src="images/td_top_left.gif" width="20" height="20" border="0"></td>
<td class="header" align="center" width="*" background="images/td_top.gif"><font class="PopTitle">Galerias</font></td>
<td class="header" align="right" width="20"><img src="images/td_top_right.gif" width="20" height="20" border="0"></td>
</tr>
</table>
<table cellpadding="3" cellspacing="0" border="0" width="100%" background="images/td_centro.gif">
<tr>
<td width="120"> </td>
<td width="300"><br>
<%
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,"_"," ")
%>
<img src="images/orangeball.gif" align="top">
<a href="foto.asp?Folder=<%= indPicturesFolder.Name %>" class="links">
<%= indPicturesFolderSpaces %></A><br><br>
<%
Next
%>
<%
Set collPicturesFolders = Nothing
Else
'The main picture folder does not exists
%>
<font class="error">No Pictures could be found.</font>
<%
End If
%>
</td>
</tr>
</table>
<table border="0" cellpadding="0" cellspacing="0" width="100%" align="center">
<tr>
<td class="middle" align="left" width="20"><img src="images/td_bot_left.gif" width="20" height="20" border="0"></td>
<td class="middle" align="center" width="*" background="images/td_bot.gif"> </td>
<td class="middle" align="right" width="20"><img src="images/td_bot_right.gif" width="20" height="20" border="0"></td>
</tr>
</table>
<!--#INCLUDE FILE="includes/inc_footer.asp" -->
<%
Set objFSO = Nothing
Response.Flush
%>