Carissimi,
elencandomi le immagini da cartella con questo script, purtroppo se i nomi dei file contengono accenti etc tipo retrò oppure diro' etc non me li fa visionare...
come posso ovviare al problema senza rinominarli?
Grazie
codice:
Dim objFso, objFolder, objFiles
Dim strFolder, strFile, strPath, strExt

strPath = "fotogallery/" 
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

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 
	
Response.Write("[*][img][/img]") 
end if	
custRs.movenext

loop

Set objFso = Nothing 
Set objFolder = Nothing
Set objFiles = Nothing 
custRs.Close
set custRs = Nothing
Grazie
G.