<%
dim pf ' pf sets pageFunction
pageFunction = request("pf")
' create storage object
Dim dictPhotos 'Create a variable
Set dictPhotos = CreateObject("Scripting.Dictionary")
' add the photo object key/value pairs
dictPhotos.Add "P1000937", "Caption"
dictPhotos.Add "P1000986", "Caption"
dictPhotos.Add "P1010022", "Caption"
dictPhotos.Add "P1010086", "Caption"
dictPhotos.Add "P1010110", "Caption"
dictPhotos.Add "P1010130", "Caption"
dictPhotos.Add "P1010162", "Caption"
dictPhotos.Add "P1010193", "Caption"
dictPhotos.Add "P1000947", "Caption"
dictPhotos.Add "P1000991", "Caption"
dictPhotos.Add "P1010023", "Caption"
dictPhotos.Add "P1010096", "Caption"
dictPhotos.Add "P1010116", "Caption"
dictPhotos.Add "P1010134", "Caption"
dictPhotos.Add "P1010165", "Caption"
dictPhotos.Add "P1000955", "Caption"
dictPhotos.Add "P1000995", "Caption"
dictPhotos.Add "P1010027", "Caption"
dictPhotos.Add "P1010100", "Caption"
dictPhotos.Add "P1010118", "Caption"
dictPhotos.Add "P1010135", "Caption"
dictPhotos.Add "P1010170", "Caption"
dictPhotos.Add "P1000964", "Caption"
dictPhotos.Add "P1000996", "Caption"
dictPhotos.Add "P1010031", "Caption"
dictPhotos.Add "P1010103", "Caption"
dictPhotos.Add "P1010119", "Caption"
dictPhotos.Add "P1010147", "Caption"
dictPhotos.Add "P1010179", "Caption"
dictPhotos.Add "P1000973", "Caption"
dictPhotos.Add "P1010001", "Caption"
dictPhotos.Add "P1010033", "Caption"
dictPhotos.Add "P1010104", "Caption"
dictPhotos.Add "P1010122", "Caption"
dictPhotos.Add "P1010153", "Caption"
dictPhotos.Add "P1010180", "Caption"
dictPhotos.Add "P1000978", "Caption"
dictPhotos.Add "P1010010", "Caption"
dictPhotos.Add "P1010043", "Caption"
dictPhotos.Add "P1010107", "Caption"
dictPhotos.Add "P1010124", "Caption"
dictPhotos.Add "P1010154", "Caption"
dictPhotos.Add "P1010181", "Caption"
dictPhotos.Add "P1000982", "Caption"
dictPhotos.Add "P1010021", "Caption"
dictPhotos.Add "P1010046", "Caption"
dictPhotos.Add "P1010108", "Caption"
dictPhotos.Add "P1010128", "Caption"
dictPhotos.Add "P1010155", "Caption"
dictPhotos.Add "P1010184", "Caption"
arrPhotoKeys = dictPhotos.keys
' resize to 350 high
if pageFunction="dis" then
' get the photo id
photoId = request("pId")
DIM strPrevLinkId, strNextLinkId
For i = 0 To dictPhotos.Count-1 'Iterate the array
if (arrPhotoKeys(i)=photoId) then
' previous link
if ((i+1)>1) then
strPrevLinkId = arrPhotoKeys(i-1)
end if
' next link
if ((i+1)<(dictPhotos.Count)) then
strNextLinkId = arrPhotoKeys(i+1)
end if
end if
Next
' generate the nav
dim strNav
if (strPrevLinkId<>"") then
strNav = strNav & ""
strNav = strNav & "«Previous"
strNav = strNav & ""
end if
strNav = strNav & " | "
strNav = strNav & " "
strNav = strNav & "Index"
strNav = strNav & ""
strNav = strNav & " | "
if (strNextLinkId<>"") then
strNav = strNav & ""
strNav = strNav & "Next»"
strNav = strNav & ""
End if
strNav = strNav & chr(13)
response.write("")
response.write("")
response.write(" ")
response.write(strNav)
response.write(" ")
response.write(" ")
response.write(" ")
response.write("")
else
' generate thumbnails
DIM strThumbLink
strThumbLink = strThumbLink & "Summer Camp Photos " & chr(13)
strThumbLink = strThumbLink & "" & chr(13)
strThumbLink = strThumbLink & "Click on the photos to see a larger version. " & chr(13)
strThumbLink = strThumbLink & "" & chr(13)
strThumbLink = strThumbLink & "" & chr(13)
strThumbLink = strThumbLink & ""
response.write("")
response.write(strThumbLink)
response.write(" ")
end if
%>
|