Record disconesso contatore dove sbaglio?

[djjunior]

Salve,
ho questo script che mi dovrebbe elencare i file presenti in una cartella sul server in ordine di data tramite record disconnesso con l'aggiunta di un contatore, è proprio questo non riesco ad implementarlo

<% 

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

' Definisci il percorso della cartella da leggere 
strPath = "/immagini" 
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.Open
If objFiles.count > 0 then
For Each strFile in objFiles
  
custRs.AddNew
custRs("nome") = strFile.name
custRs("data") = strFile.DateCreated      
next

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(custRs("nome")), Len(strExt)) = lcase(strExt) then 
	
		iContatore = iContatore + 1
	end if
next

if iContatore <= 1 then
	displayPulsanti = false
end if

iContatore = 0 

    %> 
ELENCO
<% 

iContatore = iContatore + 1
Next

custRs.movenext

loop
else
end if
 
Set objFso = Nothing 
Set objFolder = Nothing
Set objFiles = Nothing 

%>

L'errore è:
Unexpected 'Next'

(alla riga alla parte finale dello script)

Next
^
Grazie
G.