<% Response.Expires = 0 sScriptName = Request.ServerVariables("Script_Name") Rem ** Edit directory for this slideshow sPicDir = "." Rem ** Edit this number for each slide show iImgTot = 11 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=""300""" & " height=""400""" if iImgNum < 6 OR iImgNum=8 then sPicSize = " width=""400""" & " height=""300""" end if Rem ** Picture file names array Dim sPicName(22),sCaption(22) sPicName(1) = "p8083742" sPicName(2) = "p8213771" sPicName(3) = "p8223787" sPicName(4) = "p8223803" sPicName(5) = "p8273824" sPicName(6) = "p9063861" sPicName(7) = "p9093869" sPicName(8) = "p9093879" sPicName(9) = "p9113882" sPicName(10) = "p9123889" sPicName(11) = "p9123892" sCaption(1) = "Benjamin got on every ride of Coney Island before visiting the Aquarium" sCaption(2) = "Real happy that Sarah comes to say Good Morning every morning" sCaption(3) = "That allergic reaction on his cheek seems to be all gone" sCaption(4) = "Corona Park, after getting soaked by the water fountain around the big sphere" sCaption(5) = "2.5 months.
Already aware of camera" sCaption(6) = "Benjamin introduces Sarah to Thomas The Tank Engine and friends" sCaption(7) = "First day of school. Ever." sCaption(8) = "Entertaining first school activity, and getting to know the teacher" sCaption(9) = "999…" sCaption(10) = "So happy to finally face forward on the baby carrier. And, she's a full three months old now." sCaption(11) = "1000 days old" %> (<% Response.Write (iImgNum & " of " & iImgTot) %>): August and early September 2004. <% Response.Write vbCrLf & "
" & vbCrLf & vbCrLf %>

<% if iImgNum > 1 then %> << <% end if Response.Write vbCrLf & iImgNum & " of " & iImgTot & vbCrLf if iImgNum < iImgTot then %> >> <% end if %>

<% = sCaption(iImgNum) %>