PAGEING av filer den finner i bestemte mapper.

<table width=\"100%\" border=\"1\" cellspacing=\"0\" cellpadding=\"0\">
<%
Dim fso
    Set fso = Server.CreateObject(\"Scripting.FileSystemObject\")
Dim folder
    Set folder = fso.GetFolder(Server.MapPath(velgmappe & \"/\"))
                           
If folder.Size > 0 Then
%>
<tr>
<td align=\"middle\" colspan=\"4\" class=\"hoved_tekst\"><b>Side 1 av 1<b></td>
</tr>
<%
tall = 1
For Each file In folder.Files
%>
<tr>
<td align=\"middle\"width=\"30\" class=\"hoved_tekst\"><b><%= tall%>.</b></td>
<td>
&nbsp;<a href=\"<%= velgmappe & \"/\" & file.Name%>\" target=_blank\"><font color=\"#ff4500\"><%= file.Name%></font></a>
</td>
<td width=\"150\" class=\"hoved_tekst\">( Størelse: <%= file.Size%> )</td>
<td width=\"70\" align=\"right\"><a href=\"delete_file.asp?txtSlettFil=<%= file.Name%>&txtMappe=<%= velgmappe%>\">Slett</a>&nbsp;</td>
<%
tall = tall + 1
                       
Next

Else
%>
<li>Ingen filer i mappen.</li>
<%End If%>
</tr>
                     
<tr>
<td colspan=\"4\">&nbsp;</td>
</tr>
</table>