<%
Response.Expires = 0
sScriptName = Request.ServerVariables("Script_Name")
Rem ** Edit directory for this slideshow
sPicDir = "."
Rem ** Edit this number for each slide show
iImgTot = 21
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=""240""" & " height=""320"""
if iImgNum < 4 OR iImgNum = 9 OR iImgNum > 19 then
sPicSize = " width=""320""" & " height=""240"""
end if
Rem ** Picture file names array
Dim sPicName(21),sCaption(21)
sPicName(1) = "p1211295"
sPicName(2) = "p1231306"
sPicName(3) = "p2041331"
sPicName(4) = "p2131350"
sPicName(5) = "p2191367"
sPicName(6) = "p2231368"
sPicName(7) = "p2241369"
sPicName(8) = "p3081386"
sPicName(9) = "p3101403"
sPicName(10) = "p3241435"
sPicName(11) = "p4061466"
sPicName(12) = "p4061492"
sPicName(13) = "p4131539"
sPicName(14) = "p4151551"
sPicName(15) = "p4151559"
sPicName(16) = "p4151565"
sPicName(17) = "p4161572"
sPicName(18) = "p4161573"
sPicName(19) = "p4181580"
sPicName(20) = "p4191585"
sPicName(21) = "p4201631"
sCaption(1) = "Mhh Yummy blue crayon"
sCaption(2) = "Outside during snow storm"
sCaption(3) = "After rain, in mud puddle"
sCaption(4) = "I can reach the radio now, and tune any station I want"
sCaption(5) = "Peek-a-boo!"
sCaption(6) = "Jeep! Jeep! Jeeeep!"
sCaption(7) = "Walking along Beaufort's Front Street"
sCaption(8) = "I want more mud! NOW!"
sCaption(9) = "At the beach, celebrating Daddy's birthday"
sCaption(10) = "With Mommy at the 15 month well check-up"
sCaption(11) = "What's a baby like you doing in a place like this?"
sCaption(12) = "Yummy Ice Cream!"
sCaption(13) = "Let's drive the corn-popper through this puddle and see what happens"
sCaption(14) = "Benjamin was the only kid happy to see (and imitate) the Easter bunny"
sCaption(15) = "What's this? Chalk you say? Looks/tastes like candy to me"
sCaption(16) = ""
sCaption(17) = ""
sCaption(18) = ""
sCaption(19) = "Uncle Armando came to visit"
sCaption(20) = "With Spencer decorating eggs for Easter"
sCaption(21) = "I found two eggs! I wonder what happens if I smash them together"
%>
(<% Response.Write (iImgNum & " of " & iImgTot) %>): 2003 Jan-Apr
<%
Response.Write "
"
if iImgNum > 1 then
%>
<<
<%
end if
Response.Write vbCrLf & iImgNum & " of " & iImgTot & vbCrLf
if iImgNum < iImgTot then
%>
>>
<%
end if
Response.Write "