FSO Paging

Hvordan kan jeg lave paging i dette script ??

<%
Function ShowImageForType(strName)
    Dim strTemp

    strTemp = strName

    If strTemp <> "dir" Then
        strTemp = LCase(Right(strTemp, Len(strTemp) - InStrRev(strTemp, ".", -1, 1)))
    End If
   
    Select Case strTemp
        Case "asp"
            strTemp = "asp"
        Case "dir"
            strTemp = "dir"
        Case "htm", "html"
            strTemp = "htm"
        Case "gif", "jpg"
            strTemp = "img"
        Case "txt"
            strTemp = "txt"
        Case Else
            strTemp = "misc"
    End Select

    strTemp = "<IMG SRC=""./mediebank" & strTemp & ".gif"" WIDTH=16 HEIGHT=16 BORDER=0>"

    ShowImageForType = strTemp
End Function
%>


<%
'tælle billeder i dir
set myrc = createobject("adodb.recordset")

myrc.fields.append "Dato",7
myrc.fields.append "Name",202,20
myrc.open
'tælle billeder i dir slut

strPath = "./"

Set objFSO = Server.CreateObject("Scripting.FileSystemObject")

'tælle billeder i dir
Set objFolder = objFSO.GetFolder(Server.MapPath(strPath))
For Each objItem In objFolder.Files
If Right(objItem.name,4) = ".jpg" Then
    myrc.addnew
    myrc.fields("Dato").value = FormatDateTime(objItem.DateLastModified)
    myrc.fields("Name").value = objItem.name
    myrc.update
    end if
next
myrc.sort = "Dato DESC"
'tælle billeder i dir slut


Set objFolder = objFSO.GetFolder(Server.MapPath(strPath))

%>
<BR>
<b><%= myrc.recordcount %></b> billeder i denne folder
<BR><BR>
<%


For Each objItem In objFolder.SubFolders
   
    If InStr(1, objItem, "_vti", 1) = 0 Then
   
   



   
   
    %>
   
    <%= ShowImageForType("dir") %>&nbsp;<A HREF="<%= strPath & objItem.Name %>"><%= objItem.Name %></A>
   
    <%

    End If
   
Next

counter = 1
response.write "<table border=0><tr>"
For Each objItem In objFolder.Files

If Right(objItem.name,4) = ".jpg" Then
 
 
 

%>

    <td>
        <A HREF="<%= strPath & objItem.Name %>"><img src="resize-showpic.asp?path=mediebank/<%= objItem.Name %>" border="0"></A>
        </td>
   
<%

counter = counter + 1
        if( counter = 4 ) then
          counter = 1
            response.write "</tr><tr>"
        end if
       
End if
Next



for i = counter to 4
          response.write "<td>&nbsp;</td>"
        next
        response.write "</tr></table>"


Set objItem = Nothing
Set objFolder = Nothing
Set objFSO = Nothing
%>