Subscript out of range: '500'

Hej

Jeg har et script, hvor man kan bladre mellem ens uploadede billeder, men hvis jeg bladre mod enden (altså klikker på "Næste" en masse gange), så kommer den med nedenstående fejl. Hvorfor?

Subscript out of range: '500'
/test/artikel1-0.asp, line 63

____________________________________________________

<html>
<head>
<title></title>
</head>

<body>
<div align="center">

<fieldset style="padding: 2">
<legend align="center"><font face="Trebuchet MS">Vælg billede til ny artikel</font></legend>
<p>&nbsp;</p>

<table width="100%" border="0">
<%
billedeSti = "/grafik/artikler/"
antalBillederPrSide = 50
antalBillederPrRekke = 5


if Request.QueryString("billede") = "" then
  start = request.querystring("start")
  if start = "" then start = 0

  Set fs = CreateObject("Scripting.FileSystemObject")
  Set f = fs.GetFolder(server.mappath(billedeSti))

  Set fc = f.Files
  For Each billed in fc
    arrayBuild = arrayBuild & billed.name & "|"
  next
  arrayBuild = left(arrayBuild, (len(arrayBuild) - 1))
 
  myArray = Split(arrayBuild, "|")

  Antalsider = int(ubound(myarray) / antalBillederPrSide)
  antal = 0
  for i = start to (start + antalBillederPrSide-1)
    if not i > ubound(myarray) then
      if antal = 0 then Response.Write "<TR>"
%><font face="Trebuchet MS"> </font>
<td width="<%=Int(antalBillederPrRekke/100)%>"><p align="center">
<font face="Trebuchet MS">
<a href="artikel1.asp?kategori=<%response.write Request.QueryString("kategori")%>&titel=<%response.write Request.QueryString("titel")%>&beskrivelse=<%response.write Request.QueryString("beskrivelse")%>&link=<%response.write Request.QueryString("link")%>&link1=<%response.write Request.QueryString("link1")%>&link2=<%=billedeSti%><%=myArray(i)%>&datoPublikation=<%response.write Request.QueryString("datoPublikation")%>">
<IMG SRC="<%=billedeSti%><%=myArray(i)%>" border="1" color="black">
</a></td>
<%
    else
      nesteside = 1
    end if

    antal = antal + 1
    if antal = 5 then
      Response.Write "</TR>"
      antal = 0
    end if
  next
  if antal > 0 then Response.Write "</TR>"
%> </font>
  </table>
  <center>
<%
  if start <> 0 then
    response.write "<font face='Trebuchet MS'><a href=""?kategori=" & Request.QueryString("kategori") & "&titel=" & Request.QueryString("titel") & "&beskrivelse=" & Request.QueryString("beskrivelse") & "&link=" & Request.QueryString("link") & "&link1="& Request.QueryString("link1") & "&link2=" & myArray(i) & "&datoPublikation=" & Request.QueryString("datoPublikation") & "&start=" & (start - 50) & """>Forrige</a>"
  end if
  response.write("&nbsp;")
  if nesteside <> 1 then
    'response.write "<font face='Trebuchet MS'><a href=""?start=" & (start + 50) & """>Næste</a>"
    response.write "<font face='Trebuchet MS'><a href=""?kategori=" & Request.QueryString("kategori") & "&titel=" & Request.QueryString("titel") & "&beskrivelse=" & Request.QueryString("beskrivelse") & "&link=" & Request.QueryString("link") & "&link1="& Request.QueryString("link1") & "&link2=" & myArray(i) & "&datoPublikation=" & Request.QueryString("datoPublikation") & "&start=" & (start + 50) & """>Næste</a>"
  end if
%>
  </center>
<%
else
%>
  <tr><td align="center">
  <font face="Trebuchet MS">
  <img SRC="<%=Request.QueryString("billede")%>" border="1"> </font>
  <p align="center"><font face="Trebuchet MS"><a href="java script:history.back();">Tilbage</a></font></p>
  </td>
  </tr>
  </table>
<%
end if %>
</div>
</fieldset>
</body>
</html>