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
L'errore è:
Unexpected 'Next'
(alla riga alla parte finale dello script)
Next
^
Grazie
G.
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
%>
Unexpected 'Next'
(alla riga alla parte finale dello script)
Next
^
Grazie
G.