<% 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 = 2) or (iImgNum = 5) or (iImgNum = 10) or (iImgNum = 12) then sPicSize = " width=" & chr(34) & "240" & chr(34) sPicSize = sPicSize & " height=" & chr(34) & "320" & chr(34) elseif iImgNum = 1 then sPicSize = " width=" & chr(34) & "400" & chr(34) sPicSize = sPicSize & " height=" & chr(34) & "300" & 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) = "With so many gifts for our baby, it was almost like Christmas. We're very lucky to have so many great friends." sCap(2) = "Lindsay was very excited about the Baby Shower, and even the scarecrow wanted to hold a baby." sCap(3) = "Mommy wants to eat the cake all by herself." sCap(4) = "What's with all this baby talk? It could be contagious, we better leave." sCap(5) = "Mom, how much longer do I have to wait for my new friend to arrive?" sCap(6) = "Who's next ??" sCap(7) = "Of course I knew the nipple brush is for the bottle!" sCap(8) = "I would have never figured out that was you on the baby-adult photo matching board." sCap(9) = "If we don't stop eating and drinking, we might need some of those diapers really soon." sCap(10) = "Where's that cake? can't you see my plate is empty!" sCap(11) = "Guys can enjoy a baby shower too. Yeah. Really." sCap(12) = "Riley, all those presents are for another baby. But you'll get to hold him when he comes Ok?" sCap(13) = "Can we trick-or-treat everyone here? Please? Oh come on!" sCap(14) = "K: Ralph would really like those pistachios.
T: I think I want a baby too.
M: Sh.. run!" sPicName(1) = "bounty" sPicName(2) = "lindsay_baby_scarecrow" sPicName(3) = "caterina_cake" sPicName(4) = "duke_admin" sPicName(5) = "susan_charlie" sPicName(6) = "carmen_robert" sPicName(7) = "kim_andy" sPicName(8) = "dave_karen" sPicName(9) = "catherine_damon" sPicName(10) = "janet" sPicName(11) = "sean_mark" sPicName(12) = "the_craigs" sPicName(13) = "rilovs" sPicName(14) = "karen_tara" %> Baby Shower Oct 27: (<% 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 "

" Response.Write vbCrLf & "

" & vbCrLf %>

 

<<

<% = sCap(iImgNum) %>

>>

Baby Shower.

October 27, 2001. Beaufort, NC.