Paging: omskrive alle sider til forrige og næste
Denne kode:For Each objFileItem in objFolderContents
info_Count = info_Count + 1
info_page = info_page + 1
if info_page = 1 then
info_page_count = info_page_count + 1
info_page = 0
End If
If info_page = 0 then
If trim(info_page_count + 1) = trim(page) then
response.write info_page_count + 1 & " "
Else
response.write "<a href='"&CurFile&"?ShowSub="&ShowSub&"&start=" & info_count & "&page=" & info_page_count + 1 & "'>" & info_page_count + 1 & " <a> "
End If
End If
viser hver side efter hinanden (1 2 3 4 5 o.s.v.)
Jeg ville gern have lavet det til at hvis der er flere side, skal den lave en "<- ->" (uden anførselstegn).
Desuden hvis det er første eller sidste side, skal pilen <- eller -> selvfølgelig ikke være der
