Elencare in ordine di data

[djjunior]

Carissimi,
a questo script avevo incluso la possibilità di elencare i file in ordine di data.

<% 

Dim objFso, objFolder, objFiles
Dim strFolder, strFile, strPath, strExt

' Definisci il percorso della cartella da leggere 
strPath = "/CARTELLA" 
strExt = ".JPG"

Set objFso = Server.createObject("Scripting.FileSystemObject") 
Set objFolder = objFso.GetFolder(Server.MapPath(strPath)) 
Set objFiles = objFolder.Files 

set custRs = Server.CreateObject("ADODB.Recordset")
custRs.Fields.Append "nome", 200, 300 ' adVarChar
custRs.Fields.Append "data", 7 ' Date

custRs.AddNew
custRs("nome") = strFile.name
custRs("data") = strFile.DateCreated      

custRs.Sort = "data Desc"

custRs.movefirst

 Do until custRs.eof
    if Right(lcase(custRs("nome")), Len(strExt)) = lcase(strExt) then 


dim iContatore
dim displayPulsanti
iContatore = 0
displayPulsanti = true

for each strFile in objFiles 
    if Right(lcase(strFile.name), Len(strExt)) = lcase(strExt) then 
    
        iContatore = iContatore + 1
    end if
next
if iContatore <= 1 then
    displayPulsanti = false
end if
iContatore = 0 

for each strFile in objFiles 
if Right(lcase(strFile.name), Len(strExt)) = lcase(strExt) then 


    %>
STAMPA I FILE
<%  
iContatore = iContatore + 1

end if
Next    

end if

custRs.movenext

loop

Set objFso = Nothing 
Set objFolder = Nothing
Set objFiles = Nothing 


%>

Ho questo errore però:

ADODB.Recordset error '800a0e78' 

 Operation is not allowed when the object is closed. 
 Alla linea : custRs.AddNew

Dove sbaglio?
Grazie