Record disconesso contatore dove sbaglio?

djjunior

Utente Attivo
24 Lug 2004
99
1
8
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
Codice:
<% 

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.
 
Discussioni simili
Autore Titolo Forum Risposte Data
T come ordinare dei record recuperati da due tabelle MySQL 0
T vista record tabellare MySQL 0
K form Inserimento record mysql PHP 2
R query DELETE non cancella i record PHP 1
M Accodare record presi da un altra tabella PHP 8
MarcoGrazia Trovare record nel database partendo da id non sequenziali PHP 6
G notifiche dekstop/mobile ogni volta che record è inserito/eliminato/aggiornato PHP 0
P Pagina modifica record che non funziona PHP 0
S Selezionare ultimo record di una sotto query MySQL 27
A Tabella con bottoni per aggiornamento record PHP 6
S Differenza date record successivi MS Access 7
R Aggiornare record mysql con Ajax, jQuery e php Ajax 2
S Aggiornamento lista record Database 2
M Esportazione in CSV, salta il primo record PHP 4
T foreach e fetchAll dove recupero solo l'ultimo record PHP 5
A Raggruppare record con stessa data PHP 13
R Scorporare array e recuperare record tabella PHP 10
Tommy03 Select in ordine per numero di record MySQL 7
L Creazione di 2 o più record PHP 6
mazman mysqli_query() mi ritorna un array vuoto anche se presente un record nella tabella PHP 13
L contare record uguali in file csv PHP 4
M Estrapolare singoli record da intervallo (dal al/inizio fine) MS Access 0
max1974 [MySQL] Estrapolare record finti/inisistenti MySQL 9
G [PHP] Passare dati tra record PHP 4
G Cambiare colore ad un record database mysql MySQL 0
S elimina record sql asp classic Classic ASP 5
S [MS Access] Apertura Maschera su nuov record in base a determinato ID MS Access 0
M leggere con jquery/ajax in una function javascript record di database sql server Javascript 0
P [PHP] Stampare record di diverse tabelle ma con nomi uguali PHP 6
M [PHP] Selezione record da elenco PHP 24
A [MS Access] Aprire maschera con sottomaschera su ultimo record MS Access 0
C [PHP] Creare un Pulsante che ricopia valori di un campo in altro record PHP 4
C [MySQL] Copiare campi di un record in un nuovo record MySQL 0
O [PHP] Ricerca record tramite post PHP 7
GraceHawk [MS Access] Findfirst per ricerca record MS Access 1
C [PHP] scrivere o aggiornare record in tabella PHP 7
bubino8 Record A in CNAME Domini 2
L Mi trovo nell'impossibilità di eliminare un record nella tabella Database 1
M [PHP] Non calcola l'ultimo record inserito PHP 13
ste80 [MS Access] apertura maschera su record specifico MS Access 6
T PHP+MYSQL: stampare record con numero progressivo PHP 3
G [PHP] SALVARE RECORD ESTRATTI DA DATABASE PHP 6
M [PHP] Aggiornare i dati dei record selezionati PHP 3
M Aggioranre record in tabella PHP MYSQL PHP 2
K [Visual Basic] Stampa e modifica record non funziona più Visual Basic 0
C Contare numero record uguali Database 3
G [ASP] impaginazione record database Classic ASP 13
ste80 [PHP] cancellare/aggiornare record DB PHP 24
A [PHP] [RISOLTO]Compilazione campi form da record db PHP 3
A [PHP] [RISOLTO] Modifica record db da form PHP 11

Discussioni simili