<%
Response.Expires = 0
sScriptName = Request.ServerVariables("Script_Name")
Rem ** Edit directory for this slideshow
sPicDir = "."
Rem ** Edit this number for each slide show
iImgTot = 14
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 = ""
if (iImgNum = 5) or (iImgNum = 6) or (iImgNum = 9) or (iImgNum = 12) then
sPicSize = " width=" & chr(34) & "240" & chr(34)
sPicSize = sPicSize & " height=" & chr(34) & "320" & chr(34)
elseif (iImgNum = 1) or (iImgNum = 3) then
sPicSize = " width=" & chr(34) & "400" & chr(34)
sPicSize = sPicSize & " height=" & chr(34) & "300" & chr(34)
elseif iImgNum = 14 then
sPicSize = " width=" & chr(34) & "300" & chr(34)
sPicSize = sPicSize & " height=" & chr(34) & "320" & chr(34)
else
sPicSize = " width=" & chr(34) & "320" & chr(34)
sPicSize = sPicSize & " height=" & chr(34) & "240" & chr(34)
end if
Rem ** Captions array
Dim sCap(14), sPicName(14)
sCap(1) = "Three minutes after being born via C-Section Benjamin was excercising his lungs by crying. When mommy talked to him after they finally met, he fell silent immediately and listened."
sCap(2) = "The next morning Mommy had been able to rest a little and got to hold Benjamin for a while. Still looking tired."
sCap(3) = "Benjamin sleeping in his crib at home. His parents, completely in love with him."
sCap(4) = "After a week outside of the womb, he still liked the fetal position."
sCap(5) = "Our first Christmas as a family of three. Yes, he got his music box, among other things, and a CD of Cri-Cri which his dad enjoys even more."
sCap(6) = "That boppy thing, it really makes life more comfortable for Mommy."
sCap(7) = "Ah, finally some sleep. After taking this picture, daddy put away the camera and also got some rest."
sCap(8) = "How big is that beautiful little foot in daddy's hand?"
sCap(9) = "Bejamin was two weeks old here, holding daddy by his little finger."
sCap(10) = "Benjamin really enjoys going out for a stroll in his Baby-Björn"
sCap(11) = "After a long walk, he was exhausted, but not any less beautiful."
sCap(12) = "Mommy is in love with her baby (Daddy too)."
sCap(13) = "After the first snowfall for Benjamin, we had to go out for a walk. Three inches fell overnight in Beaufort. It doesn't happen very often."
sCap(14) = "A happy family of three."
sPicName(1) = "birth_meetmom"
sPicName(2) = "postpartum_momsarms"
sPicName(3) = "sleeping_beauty"
sPicName(4) = "asleep_fetal"
sPicName(5) = "xmas_family"
sPicName(6) = "nursing_bopy"
sPicName(7) = "wmommy_sleep"
sPicName(8) = "foot_indaddyhand"
sPicName(9) = "hold_daddyfinger"
sPicName(10) = "daddy_bjorn"
sPicName(11) = "deepsleep_sweater"
sPicName(12) = "mother_love"
sPicName(13) = "family_winter"
sPicName(14) = "family_of_3"
%>
3 weeks with Benjamin: (<% Response.Write (iImgNum & " of " & iImgTot) %>)
<%
Response.Write "
"
if iImgNum > 1 then
%>
<<
<%
end if
Response.Write vbCrLf & iImgNum & " of " & iImgTot & vbCrLf
if iImgNum < iImgTot then
%>
>>
<%
end if
Response.Write "