<%
Response.Expires = 0
sScriptName = Request.ServerVariables("Script_Name")
Rem ** Edit directory for this slideshow
sPicDir = "."
Rem ** Edit this number for each slide show
iImgTot = 8
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=1 OR iImgNum=7 then
sPicSize = " width=""300""" & " height=""400"""
end if
Rem ** Picture file names array
Dim sPicName(22),sCaption(22)
sPicName(1) = "p3073176"
sPicName(2) = "p3103182"
sPicName(3) = "p3213213"
sPicName(4) = "p3213220"
sPicName(5) = "p3263238"
sPicName(6) = "p3273253"
sPicName(7) = "p3283270"
sPicName(8) = "p3283272"
sCaption(1) = "A mess, yeah. But still a very handsome boy."
sCaption(2) = "Celebrating Daddy's birthday. Benjamin enjoyed so much that days later he was asking for "birthday cake". We tried, but couldn't say no."
sCaption(3) = "At the Greenburgh Nature Center "maple sugaring party" Benjamin tapped the Maple tree."
sCaption(4) = "He then tasted the sweet sap flowing from the tree. 39 gallons of sap are cooked to make one of syrup."
sCaption(5) = "Waking up gently"
sCaption(6) = "Just being happy"
sCaption(7) = "Finally decent weather in New York. We walked across the Brooklyn bridge. Mommy looking very 6-month pregnant."
sCaption(8) = "Once in Brooklyn, we waited in line for about 30 min. to eat Pizza at famous Grimaldi's, then took the water taxi to Manhattan. The Pizza was very good indeed, but worth a 30-min. wait? Only if you're not very hungry."
%>
(<% Response.Write (iImgNum & " of " & iImgTot) %>): Benjamin. March 2004.
<%
Response.Write "
"
if iImgNum > 1 then
%>
<<
<%
end if
Response.Write vbCrLf & iImgNum & " of " & iImgTot & vbCrLf
if iImgNum < iImgTot then
%>
>>
<%
end if
Response.Write "