<%
Response.Expires = 0
sScriptName = Request.ServerVariables("Script_Name")
Rem ** Edit directory for this slideshow
sPicDir = "."
Rem ** Edit this number for each slide show
iImgTot = 7
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=""450""" & " height=""300"""
if iImgNum=3 then
sPicSize = " width=""300""" & " height=""450"""
end if
Rem ** Picture file names array
Dim sPicName(7),sCaption(7)
sPicName(1) = "655"
sPicName(2) = "675"
sPicName(3) = "679"
sPicName(4) = "699"
sPicName(5) = "706"
sPicName(6) = "715"
sPicName(7) = "698"
sCaption(1) = "The pumpkin artist"
sCaption(2) = "Our happy-scary jack-o-lantern"
sCaption(3) = "Ay Caramba! un Bandido!"
sCaption(4) = "Si señor Benjamin."
sCaption(5) = "Betty Boop in the flesh."
sCaption(6) = "Wake up Jeff!"
sCaption(7) = "Bandido muy guapo."
%>
(<% Response.Write (iImgNum & " of " & iImgTot) %>): Halloween 2003
<%
Response.Write "
"
if iImgNum > 1 then
%>
<<
<%
end if
Response.Write vbCrLf & iImgNum & " of " & iImgTot & vbCrLf
if iImgNum < iImgTot then
%>
>>
<%
end if
Response.Write "