<% 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) = "net1.jpg" ImageArr(2) = "net2.jpg" ImageArr(3) = "net3.jpg" If whichpic < 1 or whichpic > ubound(ImageArr) then whichpic = 1 End If %>

	Gospel Spots Internet Ads <% 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 %>