%@ 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)