<%@ LANGUAGE = VBScript %>
<%
Dim numPic, numFolder, numFolders
Dim folderPath(10)
Dim numPics(10)
Dim numPicStart(10)
Dim littlePrefix(10)
Dim bigPrefix(10)
Dim littlePostfix(10)
Dim bigPostfix(10)
Dim bigWindow
Dim littlePic(50)
Dim bigPic(50)
folderPath(0) = "Images/Owen/"
numPics(0) = 19
numPicStart(0) = 0
littlePrefix(0) = "DSC017"
bigPrefix(0) = "DSC017"
littlePostfix(0) = ".JPG"
bigPostfix(0) = ".JPG"
folderPath(1) = "Images/Owen1/"
numPics(1) = 22
numPicStart(1) = 1
littlePrefix(1) = "E-MAIL/MVC-0"
bigPrefix(1) = "MVC-0"
littlePostfix(1) = "E.JPG"
bigPostfix(1) = "S.JPG"
folderPath(2) = "Images/Owen2/"
numPics(2) = 26
numPicStart(2) = 1
littlePrefix(2) = "E-MAIL/MVC-0"
bigPrefix(2) = "MVC-0"
littlePostfix(2) = "E.JPG"
bigPostfix(2) = "S.JPG"
Function twoDigit (numPic)
If (numPic < 10) Then
twoDigit = "0" & numPic
Else
twoDigit = numPic
End If
End Function
numFolder = Request.QueryString("numFolder")
If (numFolder = "") Then
numFolder = 1
End If
' Response.Write(numFolder)
%>
Light Box (photo album)
<%
For numPic = numPicStart(numFolder) to numPics(numFolder)
If (((numPic - numPicStart(numFolder)) MOD 4 = 0) AND NOT (numPic = numPicStart(numFolder))) Then
%>
<% End If
' littlePic(numPic) = folderPath(numFolder) + littlePrefix(numFolder) + twoDigit(numPic) + littlePostfix(numFolder);
bigPic(numPic) = folderPath(numFolder) & bigPrefix(numFolder) & twoDigit(numPic) & bigPostfix(numFolder)
' Response.Write(bigPic(numPic))
%>
 & littlePrefix(numFolder) & twoDigit(numPic) & littlePostfix(numFolder) %>) |
<%
Next
%>