<%
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 = ""
sPicSize = " width=""400""" & " height=""300"""
if iImgNum < 4 OR iImgNum=10 OR iImgNum=13 then
sPicSize = " width=""300""" & " height=""400"""
end if
Rem ** Picture file names array
Dim sPicName(22),sCaption(22)
sPicName(1) = "p6080107"
sPicName(2) = "p6100112"
sPicName(3) = "p6140168"
sPicName(4) = "p6140171"
sPicName(5) = "p6150174"
sPicName(6) = "p6150177"
sPicName(7) = "p6160180"
sPicName(8) = "p6190192"
sPicName(9) = "p6200194"
sPicName(10) = "p6200202"
sPicName(11) = "p6223394"
sPicName(12) = "p6223395"
sPicName(13) = "p6233400"
sPicName(14) = "p6233402"
sCaption(1) = "Benjamin enjoys the sprinklers at Orchard Beach"
sCaption(2) = "Dirt! Fun!"
sCaption(3) = "Leaving the Hospital with then 3-day-old Sarah"
sCaption(4) = "Benjamin gently rocks his baby sister"
sCaption(5) = "BIT wants to be close to Sarah all the time"
sCaption(6) = "Daddy finally appears in one picture"
sCaption(7) = "Having sweet dreams. Mmh, that milk was good!"
sCaption(8) = "Every day more handsome. He looks even bigger now that he's become the big brother."
sCaption(9) = "Talk to the hand! and leave me alone."
sCaption(10) = "Wha… You talkin' to me?"
sCaption(11) = "We'll be bringing these pictures up in the years to come when they fight and claim to dislike each other"
sCaption(12) = "¿Le quieres dar un besito a baby Sarah? ¿Sí?"
sCaption(13) = "There's four of us now!"
sCaption(14) = "Daddy's girls"
%>
(<% Response.Write (iImgNum & " of " & iImgTot) %>): Two weeks with Sarah Isabel.
<%
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) %>
© All rights reserved.