<% Response.Expires = 0 sScriptName = Request.ServerVariables("Script_Name") Rem ** Edit directory for this slideshow sPicDir = "." Rem ** Edit this number for each slide show iImgTot = 12 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 = 4) or (iImgNum = 10) then sPicSize = " width=" & chr(34) & "240" & 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(12), sPicName(12) sCap(1) = "The future parents show some presents." sCap(2) = "A basket full of goodies.
Just don't give that wine to baby." sCap(3) = "The rocking chair is so cool. Thank you guys!" sCap(4) = "The flying skeleton might come in handy when baby misbehaves." sCap(5) = "They need to be this crazy to let us stay with them.
Thank you." sCap(6) = "Next time, we need a macho movie. Yeah, macho." sCap(7) = "And if you don't take your hand off my knee,
I'll chop all your remaining fingers." sCap(8) = "Are you sure that was Carrots?
I swear it tasted like stale tomato paste." sCap(9) = "The white one was potato Gerber.
What? I tell ya, it was glue!" sCap(10) = "The swing was a gift from heaven, right Aidan?" sCap(11) = "Hey, leave some brownies for us. Please!?" sCap(12) = "Sorry! Michelle and Prasad got away and I didn't take a picture of them. I had to dig the archives." sPicName(1) = "caterina_carlos_presents" sPicName(2) = "caterina_presents" sPicName(3) = "carlos_rockingchair" sPicName(4) = "carlos_skeleton" sPicName(5) = "jim_deena" sPicName(6) = "ken_meredith" sPicName(7) = "pete_ellen" sPicName(8) = "monique" sPicName(9) = "matt_mary" sPicName(10) = "pat_ann_aidan" sPicName(11) = "caterina_meredith" sPicName(12) = "4girls_prasad" %> Baby Shower Oct 20: (<% 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) %>

>>

Our first Baby Shower.

October 20, 2001 at Jim & Deena's. Durham, NC.