udskriver ikke korrekt

Jeg har nedestående script. Men næste side og forrige side bliver udskrevet før billederne til trods for at koden der udskriver står i bunden, hvad kan årsagen være til det

<script language="javascript" type="text/javascript">
    function popWin(file){
      newWin=window.open("","ResizeBillede","width=300,height=200,status=no");
      txt='<ht'+'ml><he'+'ad><ti'+'tle><\57ti'+'tle><scri';
      txt+='pt language="javascript" type="text/javascript">';
      txt+='function resPic(){h=document.images[0].scrollHeight;';
      txt+='w=document.images[0].scrollWidth;window.resizeTo(w+6,h+32);}<\57scri';
      txt+='pt><\57he'+'ad><bo'+'dy style="overflow:hidden;';
      txt+='border:0px;margin:0px"><i'+'mg src="'+file+'" style="top:0px;left:0px;border:0px;';
      txt+='" onload="resPic();"><\57bo'+'dy><\57ht'+'ml>';
      newWin.document.write(txt);
      newWin.document.close();
    }
  </script>
&nbsp;<div align="center"><center><table border="0" bordercolor="#000000" cellpadding="2"
    cellspacing="0">
<%
function sortArr(myarr, myarrdato)

for k = 0 to ubound(myarr) - 1
minindex = k
for j= k+1 to ubound(myarrdato)
if myarrdato(j) > myarrdato(minindex) then
minindex = j
end if
next
tmp = myarr(k)
myarr(k) = myarr(minindex)
myarr(minindex) = tmp
tmp2 = myarrdato(k)
myarrdato(k) = myarrdato(minindex)
myarrdato(minindex) = tmp2
next

end function

antal = 0
start = request.querystring("start")
if start = "" then
start = 0
end if

Set fs = CreateObject("Scripting.FileSystemObject")
Set f = fs.GetFolder(server.mappath("./files"))
Set fc = f.Files
thisfile = right(request.servervariables("script_name"), len(request.servervariables("script_name")) - instrrev(request.servervariables("script_name"), "/"))
For Each billed in fc

navn = lCase(Billed.name)
if navn <> thisfile AND right(navn, 3) <> "asp" AND right(navn, 3) <> "htm" AND right(navn, 4) <> "html" AND right(navn, 3) <> "mdb" then
arrayBuild = arrayBuild & billed.name & "|"
arraybuild2 = arraybuild2 & billed.datelastmodified & "|"
end if
next
arrayBuild = left(arrayBuild, (len(arrayBuild) - 1))
myArray = Split(arrayBuild, "|")
myArray2 = Split(arrayBuild2, "|")

call sortArr(myArray, myarray2)

Antalsider = int(ubound(myarray) / 6)

for i = start to (start + 5)
if not i >= ubound(myarray) then

if antal = 0 then
Response.Write "<TR>"
end if
%>