<% Response.Expires = 0 sScriptName = Request.ServerVariables("Script_Name") Rem ** Edit directory for this slideshow sPicDir = "." Rem ** Edit this number for each slide show iImgTot = 5 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=" & chr(34) & "640" & chr(34) sPicSize = sPicSize & " height=" & chr(34) & "480" & chr(34) Rem ** Captions array Dim sCap(5), sPicName(5) sCap(1) = "" sCap(2) = "" sCap(3) = "" sCap(4) = "" sCap(5) = "" sPicName(1) = "bit_whatamess" sPicName(2) = "bit_liberty" sPicName(3) = "bit_loscheques" sPicName(4) = "bit_baqueton" sPicName(5) = "bit_cosquillas" %> 6 month pics: (<% 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 SIX months old.