Fejl i vis-billed-script
HejJeg 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: '520'
/test/artikel1-0.asp, line 63
Dvs. linien neden under følgende linie: "if nesteside <> 1 then"
____________________________________________________
<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> </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(" ")
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>
