Flere sider i visning af mappe

Nu jeg har lavet dette her:

<%   
Dir = "upload/" ' Mappen med filerne
Set objFS = CreateObject("Scripting.FileSystemObject")
Set objFolder = objFS.GetFolder(Server.MapPath(Dir))
Set objFiles = objFolder.Files

intPage = Request.Querystring("page")
If isNumeric(intPage) = False Or intPage < 1 Then
  intPage = 1
End If

intPageSize = 10 ' Antal filer på hver side
intImgCount = objFiles.Count
intPageCount = -Int(-(intImgCount/intPageSize))

Response.Write "<table width=""80%"">"
For Each Image In objFiles
intFile = intFile +1
    If (intFile >= ((intPage-1)*intPageSize)+1) And (intFile =< (intPageSize*intPage)) Then
  Response.Write "<tr><td width='80%'>"
        Response.Write "<a href='upload/" & Image.Name & "' target='_blank'>" & Image.Name & "</a>"
  Response.Write "</td><td align='right'>"
  Response.Write "<a href='sletfil.asp?fil=" & Image.Name & "'>" & "<img src='billeder/slet.gif' border=0 title=Delete>" & "</a>"
  Response.Write "</td></tr>"
    End If       
Next

strprev = Request.QueryString("page") - 1
strnext = Request.QueryString("page") + 1


Response.Write "<tr>"
Response.Write "<td width='50%' align='left'><a href='filliste.asp?id=5&page=" & strprev & "'><font color='#FFF000' size='2' face='Verdana, Arial, Helvetica, sans-serif'>" & "Forrige" & "</font></td>"
Response.Write "<td width='50%' align='right'><a href='filliste.asp?id=5&page=" & strnext & "'><font color='#FFF000' size='2' face='Verdana, Arial, Helvetica, sans-serif'>" & "Næste" & "</font></td></tr>"
Response.Write "</table>"
Set objFS = Nothing
%>

Men for det første er der en forrige ved den første side (der er jo intet der hedder page=0) og for det andet vil jeg gerne have den en linie ned, det lyder simpelt men jeg har prøvet at sætte <br> alle mulige forskellige steder uden held.

Hov lige en ting til, den skal selfølgelig heller ikke vise næste hvis der ikke er flere filer at vise. Kunne dette ikke gøres ved at sige at den kun skal gøre det intPageCount gange?

Fandt selv ud af en løsning vha. if sætninger:

If strprev = 0 Then
Response.Write "<br><table width='80%'><tr>"
Response.Write ""
Response.Write "<td width='50%' align='right'><a href='filliste.asp?menu=5&page=" & strnext & "'><font color='#FFF000' size='2' face='Verdana, Arial, Helvetica, sans-serif'>" & "Næste" & "</font></td>"
Response.Write "</tr></table>"

Elseif strnext > intPageCount Then
Response.Write "<br><table width='80%'><tr>"
Response.Write "<td width='50%' align='left'><a href='filliste.asp?menu=5&page=" & strprev & "'><font color='#FFF000' size='2' face='Verdana, Arial, Helvetica, sans-serif'>" & "Forrige" & "</font></td>"
Response.Write ""
Response.Write "</tr></table>"

Else

Response.Write "<br><table width='80%'><tr>"
Response.Write "<td width='50%' align='left'><a href='filliste.asp?menu=5&page=" & strprev & "'><font color='#FFF000' size='2' face='Verdana, Arial, Helvetica, sans-serif'>" & "Forrige" & "</font></td>"
Response.Write "<td width='50%' align='right'><a href='filliste.asp?menu=5&page=" & strnext & "'><font color='#FFF000' size='2' face='Verdana, Arial, Helvetica, sans-serif'>" & "Næste" & "</font></td>"
Response.Write "</tr></table>"

End If