%
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"
%>
|
<%
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) %> |
October 20, 2001 at Jim & Deena's. Durham, NC.