(<% Response.Write (iImgNum & " of " & iImgTot) %>): Sarah Isabel is born.

<% 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=2 OR iImgNum=5 then sPicSize = " width=""300""" & " height=""400""" end if Rem ** Picture file names array Dim sPicName(22),sCaption(22) sPicName(1) = "p6110117" sPicName(2) = "p6110118" sPicName(3) = "p6110123" sPicName(4) = "p6110125" sPicName(5) = "p6110127" sPicName(6) = "p6110130" sPicName(7) = "p6110132" sPicName(8) = "p6110133" sCaption(1) = "My water broke! made a mess of the car, of the Hospital too!" sCaption(2) = "Getting ready for the OR. Honey, I'm not the one pregnant." sCaption(3) = "First photo of our baby girl. Only a couple of minutes old." sCaption(4) = "Baby's first family photo. Baby calls for brother Benjamin: Where are you bro!?? Gimme your toys, now!" sCaption(5) = "This birthing process is tiring. Let me take a nap." sCaption(6) = "Oh come on! must you keep firing that flash thing right on my eyes? go away already!" sCaption(7) = "Two tired girls. Both innately experts in the art of breast feeding." sCaption(8) = "Night night. Sleep tight. Don't let the bed bugs bite." %> (<% Response.Write (iImgNum & " of " & iImgTot) %>): Sarah Isabel is born. <% 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) %>