Stop billede tælning

Jeg har følgende kode:
_______________________start________________________________
<%
billedeSti = "Maj05BogU-DM/"
antalBillederPrSide = 8
antalBillederPrRekke = 4

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>"       
%>
<td width="<%=Int(antalBillederPrRekke/100)%>">
<a href="?MenuID=1&PicID=<%=left(myArray(i), 2)%>&start=<% = Request.Querystring("Start")%>"><img SRC="<%=billedeSti%><%=myArray(i)%>" WIDTH="100" HEIGHT="75" border="0"></a>
</td>
<%
else
nesteside = 1
end if
antal = antal + 1
if antal = 4 then
Response.Write "</tr>"
antal = 0
end if
next
if antal > 0 then Response.Write "</tr>"
%>
</table>
<center>
<%
If start <> 0 then
response.write "<a href=""?MenuID=1&PicID="& Request.Querystring("PicID") &"&start=" & (start - 8) & """> <- Forrige</a>&nbsp; |"
end if
response.write("&nbsp;&nbsp;")
if nesteside <> 1 then
response.write "<a href=""?MenuID=1&PicID="& Request.Querystring("PicID") &"&start=" & (start + 8) & """>Næste -></a>"
end if   
%>
</center>
<%
End if
%>
_____________________Slut________________________________________

Jeg har lidt problemer med at få den til at "stoppe" med at tælle billederne. Dvs at hvis jeg har et lige antal feks. 24, så tror den at der er flere og man kan se "næste" antal billeder og når man trykker på næste, så er der ikke nogen billede kun muligheden for at "gå tilbage"...

Hvordan forhindre jeg det ????