<% whichpic = Request.ServerVariables("QUERY_STRING") if whichpic = "" or not isnumeric(whichpic) then whichpic = 1 else whichpic = cint(whichpic) end if Dim ImageArr(3) ImageArr(1) = "ms1.jpg" ImageArr(2) = "ms2.jpg" ImageArr(3) = "ms3.jpg" if whichpic < 1 or whichpic > ubound(ImageArr) then whichpic = 1 end if %>

	Gospel Spots Movie Screen <% if ubound(ImageArr) > 1 then if whichpic > 1 then%> ?<%=whichpic - 1%>">[<< Prev]  <%else%> [<< Prev]  <%end if for i = 1 to ubound(ImageArr) if i = whichpic then%> <%=i%> <%else%> ?<%=i%>"><%=i%> <% end if next if whichpic < ubound(ImageArr) then%>  ?<%=whichpic + 1%>">[Next >>] <%else%>  [Next >>] <%end if end if %>