<%@ Language=VBScript %> <% dim es,ee,i,filla,myarray(13,4) set es=Server.CreateObject("Scripting.FileSystemObject") set ee=es.OpenTextFile(Server.MapPath("stocklist.txt"),1,false) pagename = Request.QueryString("pagenm") pageno = Request.QueryString("pageno") if len(pagename) = 0 then response.redirect "index.asp" if len(pageno) = 0 then pageno = 1 totalpages = pageno do while ee.ReadLine <> "*" & pagename loop pagetitle = ee.ReadLine for i = 1 to (12 * (pageno - 1) * 4) if ee.ReadLine = "x" then response.redirect "index.asp" next i = 0 do i = i + 1 myarray(i,0) = ee.ReadLine myarray(i,1) = ee.ReadLine myarray(i,2) = ee.ReadLine myarray(i,3) = ee.ReadLine loop while ((i <> 12) and (myarray(i,0) <> "x")) if (i = 12) and (myarray(i,0) <> "x") then i =47 do while ee.ReadLine <> "x" i = i + 1 if i = 48 then totalpages = totalpages + 1 i = 0 end if loop else do while i <= 12 i = i + 1 myarray(i,0) = "x" loop end if ee.close %> <%=pagetitle%> - royalty free by STOCK.FILMBOSTON.COM
stock.FilmBoston  617.491.8664
(Film and Video from Concept to Production)
S
T
O
C
K

F
O
O
T
A
G
E
ORDER: First shot <%=price%>, and <%=price2%> each additional.               Stock Main Menu

<%=pagetitle%>   <% if totalpages > 1 then for i = 1 to totalpages response.write "" & i & "  " next end if %>
<% for i = 1 to 4 %> <% next %> <% for i = 1 to 4 %> <% next %>
<% if myarray(i,0) <> "x" then %> &pageno=<%=pageno%>"> .jpg width= 90 height = 70 border = 1 > <% else %>   <% end if %>
<% if myarray(i,0) <> "x" then %> <% = myarray(i,1)%>
<% = myarray(i,2)%>
<% = myarray(i,3)%> <% else %>   <% end if %>
<% for i = 5 to 8 %> <% next %> <% for i = 5 to 8 %> <% next %>
<% if myarray(i,0) <> "x" then %> &pageno=<%=pageno%>"> .jpg width= 90 height = 70 border = 1 > <% else %>   <% end if %>
<% if myarray(i,0) <> "x" then %> <% = myarray(i,1)%>
<% = myarray(i,2)%>
<% = myarray(i,3)%> <% else %>   <% end if %>
<% for i = 9 to 12 %> <% next %> <% for i = 9 to 12 %> <% next %>
<% if myarray(i,0) <> "x" then %> &pageno=<%=pageno%>"> .jpg width= 90 height = 70 border = 1 > <% else %>   <% end if %>
<% if myarray(i,0) <> "x" then %> <% = myarray(i,1)%>
<% = myarray(i,2)%>
<% = myarray(i,3)%> <% else %>   <% end if %>