<% Response.Expires = 0 sScriptName = Request.ServerVariables("Script_Name") Rem ** Edit directory for this slideshow sPicDir = "." Rem ** Edit this number for each slide show iImgTot = 9 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=1 OR iImgNum=8 then sPicSize = " width=""400""" & " height=""300""" end if Rem ** Picture file names array Dim sPicName(22),sCaption(22) sPicName(1) = "p3143188" sPicName(2) = "p3213221" sPicName(3) = "p3273257" sPicName(4) = "p4103356" sPicName(5) = "p4183386" sPicName(6) = "p5013418" sPicName(7) = "p5120070" sPicName(8) = "p5230078" sPicName(9) = "p5270087" sCaption(1) = "At six months (in March), baby saying ""Here I am!""" sCaption(2) = "Carrying an already heavy load, but still happy." sCaption(3) = "Spring finally arrived, and all the new flowers celebrate the comming of our new baby" sCaption(4) = "Hold still for a second… That's the moment I wanted to capture." sCaption(5) = "I love all three of you." sCaption(6) = "At the NY Botanical Garden. Make room for the new flowering attraction!
More room, more!" sCaption(7) = "A well deserved rest while waiting for the OB-GYN doctor" sCaption(8) = "Cosita mia! Er, make room for Daddy. There… in the middle." sCaption(9) = "Ready to pop? Oh yeah!
Not much longer now." %> (<% Response.Write (iImgNum & " of " & iImgTot) %>): 2nd Pregnancy. <% 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) %>