<% Response.Expires = 0 sScriptName = Request.ServerVariables("Script_Name") Rem ** Edit directory for this slideshow sPicDir = "." Rem ** Edit this number for each slide show iImgTot = 29 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) & "400" & chr(34) sPicSize = sPicSize & " height=" & chr(34) & "300" & chr(34) if iImgNum > 18 then sPicSize = " width=" & chr(34) & "300" & chr(34) sPicSize = sPicSize & " height=" & chr(34) & "400" & chr(34) end if Rem ** Picture file names array Dim sPicName(30) sPicName(1) = "h01" sPicName(2) = "h02" sPicName(3) = "h03" sPicName(4) = "h04" sPicName(5) = "h05" sPicName(6) = "h06" sPicName(7) = "h07" sPicName(8) = "h08" sPicName(9) = "h09" sPicName(10) = "h10" sPicName(11) = "h11" sPicName(12) = "h12" sPicName(13) = "h13" sPicName(14) = "h14" sPicName(15) = "h15" sPicName(16) = "h16" sPicName(17) = "h17" sPicName(18) = "h18" sPicName(19) = "v01" sPicName(20) = "v02" sPicName(21) = "v03" sPicName(22) = "v04" sPicName(23) = "v05" sPicName(24) = "v06" sPicName(25) = "v07" sPicName(26) = "v08" sPicName(27) = "v09" sPicName(28) = "v10" sPicName(29) = "v11" %> (<% Response.Write (iImgNum & " of " & iImgTot) %>): 2002 Xmas Party
  <% 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 %> 		 

<<

Xmas Party
Sat. December 7, 2002

<% if iImgNum < iImgTot then %> >> <% else %> |<< <% end if %>  

If you'd like a high resolution (1600x1200) copy of this picture that is suitable for printing (about 400Kb+) just let us know.