billede galleri - har stirret mig blind

Herunder er et script til at vise billeder.

Men der vises først billede når der er 2 billeder i den pågælende mappe. Når der så er 2 vises det ene kun.

hvor er jeg gået galt.

<%
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("./heste/"& rs("navn") & ""))
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
%>
        <td bordercolor="#000000" valign="middle"><p align="center">
        <a href="#" onclick="popWin('./heste/<%=rs("navn")%>/<%=myarray(i)%>');return false;">
        <span style="text-decoration: none">
        <img src="./heste/<%=rs("navn")%>/<%=myarray(i)%>" width="100" height="75" alt="" style="border: 1px solid #000000"></span></a>
        </td>
<%
end if

if antal = 2 then
Response.Write "</TR>"
antal = 0
else
antal = antal + 1
end if
next

%>