<%
Dim strScriptName
Dim arrPhotoNames
Dim arrPhotoTitles
Dim intPhotoId
Dim I
' Get script URL for links
strScriptName = Request.ServerVariables("URL")
' You'd probably get this info from a database or an XML file or
' something like that, but the source will vary based on your
' situation so I'm just loading the array manually.
arrPhotoNames = Array("candid050", "candid051", "candid052", "candid053", "candid054", "candid055", _
"candid056", "candid057", "candid058", "candid059", "candid060", "candid061", _
"candid062", "candid063", "candid064", "candid065", "candid066", "candid067", _
"candid068", "candid069", "candid070", "candid071", "candid072", "candid073", _
"candid074", "candid075", "candid076", "candid077", _
"candid078", "candid079", "candid080", "candid081", _
"candid082", "candid083", "candid084", "candid085", "candid086", _
"candid087", "candid088", "candid089", "candid090", _
"candid091", "candid092", "candid093", "candid094", _
"candid095", "candid096", "candid097")
arrPhotoTitles = Array("Submitted by Bridgett Bahm", "Submitted by Bridgett Bahm", "Submitted by Bridgett Bahm", "Submitted by Bridgett Bahm", _
"Submitted by Bridgett Bahm", "Submitted by Bridgett Bahm", "Submitted by Bridgett Bahm", "Submitted by Bridgett Bahm", _
"Submitted by Bridgett Bahm", "Submitted by Bridgett Bahm", "Submitted by Bridgett Bahm", "Submitted by Bridgett Bahm", _
"Submitted by Bridgett Bahm", "Submitted by Bridgett Bahm", "Submitted by Bridgett Bahm", "Submitted by Bridgett Bahm", _
"Submitted by Bridgett Bahm", "Submitted by Bridgett Bahm", "Submitted by Bridgett Bahm", "Submitted by Bridgett Bahm", _
"Submitted by Bridgett Bahm", "Submitted by Bridgett Bahm", "Submitted by Bridgett Bahm", "Submitted by Bridgett Bahm", _
"Submitted by Bridgett Bahm", "Submitted by Bridgett Bahm", "Submitted by Bridgett Bahm", "Submitted by Bridgett Bahm", _
"Kelsey and Madeline", "Callie and Sarah", "Sarah and her sister Kelsey", "Chastin and Sarah", _
"Petit Princess Kesley all tuckered out", "Sarah and Taylre", "Sarah and Joy", "Raven and Sarah", "Sarah and Rashada", _
"Submitted by Daphne Watson", "Submitted by Daphne Watson", "Submitted by Daphne Watson", "Submitted by Daphne Watson", _
"Submitted by Daphne Watson", "Submitted by Daphne Watson", "Submitted by Daphne Watson", "Submitted by Daphne Watson", _
"Submitted by Daphne Watson", "Submitted by Daphne Watson", "Submitted by Daphne Watson")
intPhotoId = Request.QueryString("photo")
If intPhotoId <> "" Then
intPhotoId = CInt(intPhotoId)
If intPhotoId < LBound(arrPhotoNames) Or intPhotoId > UBound(arrPhotoNames) Then
intPhotoId = -1
End If
Else
intPhotoId = -1
End If
If intPhotoId = -1 Then
' Show Gallery
Response.Write "Candid Photo Gallery
" & vbCrLf
Response.Write "" & vbCrLf
Response.Write "" & vbCrLf
For I = LBound(arrPhotoNames) To UBound(arrPhotoNames)
' Show each thumbnail in it's own table cell
Response.Write ""
Response.Write ""
Response.Write "![]()
"
Response.Write "" & arrPhotoTitles(I) & ""
Response.Write " | " & vbCrLf
' Start a new row every 4 thumbnails.
' In the Mod line below, the 4 is because we want 4 thumbnails
' per row and the 3 is because we started counting from 0.
' If you want more or less columns just adjust accordingly:
' I Mod [Columns] = [Columns - 1]
'If I Mod 4 = 3 Then
' I actually changed it so that we're only showing 2 images across
' to deal with the images overlapping with our flex ads.
If I Mod 6 = 5 Then
Response.Write "
" & vbCrLf
End If
Next 'I
Response.Write "
" & vbCrLf
Response.Write "
" & vbCrLf
Else
' Show Photo Detail
Response.Write "Candid Photo Gallery
" & vbCrLf
' photo title
Response.Write "" & arrPhotoTitles(intPhotoId) & "
" & vbCrLf
' Show full photo image.
Response.Write ""
Response.Write "![]()
"
Response.Write "
" & vbCrLf
' previous and next links
Response.Write ""
If intPhotoId > LBound(arrPhotoNames) Then
Response.Write ""
Response.Write "<-- previous"
End If
Response.Write " "
If intPhotoId < UBound(arrPhotoNames) Then
Response.Write ""
Response.Write "next -->"
End If
Response.Write "
" & vbCrLf
Response.Write ""
Response.Write ""
Response.Write "Back to Album"
Response.Write "
" & vbCrLf
End If
%>