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

[optime]

te lo dice chiaramente che quella operazione NON è possibile perché l'oggetto è CHIUSO...

[djjunior]

Grazie optime, questo l'avevo capito anche dall'errore, ma volevo sapere come fare coesistere questo script insieme, l'ordine x data etc.
Grazie

[optime]

ma se lo avevi già capito, perché non l'hai corretto aprendo l'oggetto? cosa c'entra la coesistenza ecc ecc?

[djjunior]

Ho capito l'errore, ma non so come risolverlo, dove aprire l'oggetto etc

[djjunior]

nessun aiuto su come risolvere l'errore?
grazie

[vic53]

Scusami ma su cosa stai scrivendo la "table" che vuoi costruire? in Access?
Se si, manca la connessione al DB o la sua creazione e manca anche la creazione dell'oggetto table...
poi puoi inserire gli oggetti Fields nella table...e gestire un eventuale sort tramite una chiamata SQL

oppure sono io che non ho capito cosa vuoi costruire...

ciao

[optime]

http://forum.html.it/forum/showthrea...et+disconnesso

[djjunior]

Grazie optime, per avermi fatto notare un vecchio mio post, per quanto riguarda il record disconnesso tutto ok, ma non riesco ad implementarci il contatore, come devo fare?
Grazie
G.

[vic53]

se incrementi il contatore, dove lo stampi? e poi lo resetti dopo averlo caricato?
non ci vuole un "response.write contatore" o un<%=contatore% %> da qualche parte...?
ciao