<% Response.Expires = 0 sScriptName = Request.ServerVariables("Script_Name") Rem ** Edit directory for this slideshow sPicDir = "." Rem ** Edit this number for each slide show iImgTot = 15 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 > 9) then sPicSize = " width=" & chr(34) & "300" & chr(34) sPicSize = sPicSize & " height=" & chr(34) & "400" & chr(34) else sPicSize = " width=" & chr(34) & "400" & chr(34) sPicSize = sPicSize & " height=" & chr(34) & "300" & chr(34) end if Rem ** Captions array Dim sCap(15), sPicName(15) sCap(1) = "" sCap(2) = "" sCap(3) = "" sCap(4) = "" sCap(5) = "" sCap(6) = "" sCap(7) = "" sCap(8) = "" sCap(9) = "" sCap(10) = "" sCap(11) = "" sCap(12) = "" sCap(13) = "" sCap(14) = "" sCap(15) = "" sPicName(1) = "312" sPicName(2) = "290" sPicName(3) = "316" sPicName(4) = "295" sPicName(5) = "273" sPicName(6) = "272" sPicName(7) = "243" sPicName(8) = "260" sPicName(9) = "313" sPicName(10) = "301" sPicName(11) = "309" sPicName(12) = "285" sPicName(13) = "266" sPicName(14) = "275" sPicName(15) = "299" %> BIT's 3.5rd 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 %>

BIT's 3.5 months.