<% 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 > 4) and (iImgNum < 9) 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(14), sPicName(14) sCap(1) = "" sCap(2) = "" sCap(3) = "" sCap(4) = "" sCap(5) = "" sCap(6) = "" sCap(7) = "" sCap(8) = "" sCap(9) = "" sCap(10) = "" sCap(11) = "" sCap(12) = "" sPicName(1) = "hipno" sPicName(2) = "squeal" sPicName(3) = "ben_smiles" sPicName(4) = "baseball_hat" sPicName(5) = "ben_sitting" sPicName(6) = "stroller_smile" sPicName(7) = "hug_osito" sPicName(8) = "semi_profile" sPicName(9) = "wmom_bed" sPicName(10) = "wdad" sPicName(11) = "wmom_babybjorn" sPicName(12) = "travieso" %> Ben's 3rd month: (<% 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) %>	<% if iImgNum < iImgTot then %> >> <% else %> \|<< <% end if %>

Benjamin is three months old.