 |
 |
 |
 |
|
|
|
 |
 |
 |
 |
<%
'~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
' Declaration of variables and constants
'~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
Dim ind, photo
Dim MyDirectory ' Path to folder containing photos.asp
'Dim MyFolders ' List of subfolders (albums)
Dim MyFiles ' List of files in an album
Dim folderFound ' individual subfolder
Dim fileFound ' individual photo
' Turn off captions globally by changing the value of captions to "no"
' Turn off captions individually by naming the file with an initial undescore (_)
Const captions = "no"
'
'~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
' Store QueryStrings as variables (out of habit)
'~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
'Get querystring for photo number as sub-type integer
photo = Cint(Request.QueryString("photo"))
'Get name of folder containing current album
'weddinggallery = Request.QueryString("weddinggallery")
'
' Create FileSystemObjects
Set MyDirectory=Server.CreateObject("Scripting.FileSystemObject")
' MyFolders is contents of folder containing photos.asp
'Set MyFolders=MyDirectory.GetFolder(Server.MapPath("./"))
' get file list from chosen gallery and see how many there are
Set MyFiles=MyDirectory.GetFolder(Server.MapPath("./weddinggallery"))
ind = MyFiles.files.count
' make sure photo index is in range, wrap if necessary
If Request.QueryString("photo") = "" Then
photo = 1
ElseIf photo > ind Then
photo = 1
ElseIf photo < 1 Then
photo = ind
End If
Response.Write("
|
||
|