Paging...

Hej
Jeg har følgende som jeg benytter..
Jeg mangler bare at skal ha paging på, så der vises 10 af gange og man kan klikke sig videre, frem og tilbage osv. Er der ikke nogen som er sød at fikse det for mig ? Står virkelig og mangler det.

<html>
<head>
</head>
<body>
<%
vPath = \"/musik/\"
pPath = Server.MapPath( vPath )

Set fs = Server.CreateObject( \"Scripting.FileSystemObject\" )

Set myFolder = fs.GetFolder( pPath )
%>

<TABLE BORDER=\"0\" BGCOLOR=\"#FFFFFF\" BORDERCOLOR=\"#000000\" cellspacing=\"1\" cellpadding=\"2\">
<tr>
  <td bgcolor=\"#E9E9E9\"><b><FONT size=\"2\" face=\"Verdana\">Fil Navn:</FONT></b></td>
  <td bgcolor=\"#E9E9E9\"><b><font size=\"2\" face=\"Verdana\">Størrelse:</font></b></td>
</tr>
<% For Each thing in myFolder.Files %>
<tr>
  <td bgcolor=\"#E9E9E9\"><a href=\"/musik/<%=thing.Name%>\" target=\"_blank\"><font size=\"2\" face=\"Verdana\"><%=thing.Name%></font></a></td>
  <td bgcolor=\"#E9E9E9\"><font size=\"2\" face=\"Verdana\"><%=thing.Size%> byte</font></td>
</tr>

<% Next %>
</table>
<font size=\"2\" face=\"Verdana\">
<BR>

</font>
<center>
</body>
</html>