<%
Response.Expires = 0
sScriptName = Request.ServerVariables("Script_Name")
Rem ** Edit directory for this slideshow
sPicDir = "."
Rem ** Edit this number for each slide show
iImgTot = 15
sImgNum = Request.QueryString("img")
if 0 = len(sImgNum) then iImgNum = 1 else iImgNum = CInt(sImgNum)
if iImgNum < 1 then iImgNum = iImgTot
if iImgNum > iImgTot then iImgNum = 1
sImgNum = right("00" & CStr(iImgNum),3)
Rem ** Pic size. If variable or unknown make sPicSize = ""
sPicSize = " width=""400""" & " height=""300"""
if iImgNum=2 OR iImgNum=5 OR iImgNum=8 OR iImgNum=11 OR iImgNum=12 OR iImgNum=13 OR iImgNum=15 then
sPicSize = " width=""300""" & " height=""400"""
end if
Rem ** Picture file names array
Dim sPicName(15),sCaption(15)
sPicName(1) = "p7042041"
sPicName(2) = "p7192084"
sPicName(3) = "p7212107"
sPicName(4) = "p7262113"
sPicName(5) = "p8162203"
sPicName(6) = "p8192221"
sPicName(7) = "p8242236"
sPicName(8) = "p8302258"
sPicName(9) = "p8312269"
sPicName(10) = "p9032280"
sPicName(11) = "p7272115"
sPicName(12) = "p7272116"
sPicName(13) = "p7272133"
sPicName(14) = "p8032174"
sPicName(15) = "p8302253"
sCaption(1) = "Toot-toot chugga chugga"
sCaption(2) = "You talkin' to me?"
sCaption(3) = "Sweet dreams my boy"
sCaption(4) = "Yee-haw!"
sCaption(5) = "Fun at the beach"
sCaption(6) = "Cool toy"
sCaption(7) = "Nice summer evening on the waterfront"
sCaption(8) = "F-1 pilot in training"
sCaption(9) = "Finally he got on a different ride than the train or carousel"
sCaption(10) = "Daddy likes being seen with Benjamin"
sCaption(11) = "Ocracoke here I come!"
sCaption(12) = "How can I say No to him?"
sCaption(13) = "A beautiful afternoon on the beach"
sCaption(14) = "Did you see the horse?"
sCaption(15) = "Bouncy Ball!"
%>
(<% Response.Write (iImgNum & " of " & iImgTot) %>): Summer 2003
<%
Response.Write "
"
if iImgNum > 1 then
%>
<<
<%
end if
Response.Write vbCrLf & iImgNum & " of " & iImgTot & vbCrLf
if iImgNum < iImgTot then
%>
>>
<%
end if
Response.Write "