Como posso fazer uma páginação

:( Olá pessoa logo abaixo tem um código que montei para listar todas as imagens de um diretório...

O que gostaria de saber é como faço para criar uma páginação neste código se alguem puder me ajudar vou ficar muito agradecido.....

<%

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

Set PASTA = FSO.Getfolder("c:\meus documentos\images")

Set Arquivos = Pasta.Files

' criamos o objeto FSO, feita referência a pasta TESTE, e o objeto arquivos, é definido como os arquivos que existirem na pasta

nume = 0

Response.write "<table width=""700"" border=""0"" align=""center"" cellspacing=""20"">"

Response.write "<tr>"

FOR EACH arquivo IN arquivos

if nume <> 3 then

if nume = 3 then

 Response.write "</tr>"

 end if

 response.write "<td><div align=" & chr(34) & "center" & chr(34) & ">" & "<a href=" & chr(34) & "images\" & arquivo.name & chr(34) &">" & "<img src=" & chr(34) & "images\" & arquivo.name & chr(34) & "border=" & chr(34) & "0" & chr(34) & "></a></div></td>"

 nume = nume + 1

 elseif nume = 3 then

 if nume = 3 then

 Response.Write "<tr>"

 end if

 response.write "<td><div align=" & chr(34) & "center" & chr(34) & ">" & "<a href=" & chr(34) & "images\" & arquivo.name & chr(34) &">" & "<img src=" & chr(34) & "images\" & arquivo.name & chr(34) & "border=" & chr(34) & "0" & chr(34) & "></a></div></td>"

 nume = 0

 nume = nume + 1

end if

Next

' aqui é usado um for each, que pegara absolutamente quaisquer arquivos no objeto arquivos (que é PASTA.files), e os exibirá enquanto houver.

%>