Dopo un giorno di tentativi, e di recerche sono risucito a realizzare questo script che funziona perfettamente, inserico il codice eventulamente servisse a qualcunaltro:
<%
RecordsPerPagina = 5
page = Request("page")
if len(page) > 0 and isNumeric(page) then
page =clng(page)
else
page =1
end if
' definizione del recordset
set custRs = Server.CreateObject("ADODB.Recordset")
custRs.Fields.Append "nome", 200, 300 ' adVarChar
custRs.Fields.Append "dimensione", 2, 4 ' smallint
custRs.Fields.Append "data", 7 ' Date
custRs.Open

' popolamento
Set FileObject = Server.CreateObject("Scripting.FileSystemObject")
StrPath = Server.MapPath("../public/foto/"&user)

Set f = FileObject.GetFolder(strPath)
Set fc = f.SubFolders
contafolder=0
For Each f1 in fc
custRs.AddNew
custRs("nome") = f1.name
custRs("data") = f1.DateCreated
custRs("dimensione") = f1.size / 1024
contafolder = (contafolder+1)
Next

Set fc = Nothing
Set f = Nothing

IF custrs.EOF and custrs.BOF Then
Else
custrs.PageSize = RecordsPerPagina
custrs.AbsolutePage = page
END IF
TotalRecords = custrs.RecordCount

' Ordino in base al campo data

Response.write ("<center><table border=""0""style=""border-width:1; border-color:rgb(51,51,51); border-style:solid;"" width=""500"">")
Response.write ("<tr bgcolor=""#99CCFF""><th>Nome<th>Dimensione<th>Data di creazione<th>foto")

' Mostro il recordset appena ordinato
For i=1 to RecordsPerPagina
if Not custRs.EOF then
' Conto le foto nelle singole cartelle
strFile = server.mappath("../public/foto/"&user&"/"&custRs("nome"))
Set fileget = FileObject.getfolder(strFile)
set getfile = fileget.files
conta= 0

For Each file in getfile
conta = (conta+1)
next

Response.Write ("<tr><td width=""125"">"& custRs("nome")&"")
Response.Write ("<td width=""105"">"& custRs("dimensione") & " KB" )
Response.Write ("<td width=""185"">" & custRs("data") )
Response.Write ("<td width=""85""><center>" &conta )
custRs.movenext
end if
Next

Response.write ("</table>")
response.write ("

<center>Viaggi per quasto socio : "&contafolder&"</center></p>")
%>
<%
' impaginazione record
If TotalRecords > 0 then
Response.Write("<center>Pagine:")
For p=1 to custrs.PageCount
If p <> CInt(Page) then
Response.Write("<A target='_self' href='personale.asp?user="&user&"&page="&p)
Response.write("'>")
Else
' pagina attuale
Response.Write ("")
End if
Response.Write p
If p <> CInt(Page) then
Response.Write ("</A> ")
Else
Response.Write ("
")
End if
Next
End if
' libero risorse
custRs.Close
set custRs = Nothing
Set getfile = Nothing
Set fileget = Nothing
Set FileObject = Nothing
%>
ciao
P.S.
Roby_72 avevo gia ricercato nel forum ma non ho trovato nulla che funzionasse.