Primo incontro online offerto da ARIPS

<% Dim objFso, objFiles, objFolder Dim aryFiles(), intFile, objFile Dim strPath Dim intRnd strPath = "convers/" intFile = 0 Set objFso = Server.CreateObject("Scripting.FileSystemObject") Set objFolder = objFSO.GetFolder(Server.MapPath(strPath)) Set objFiles = objFolder.Files For Each objFile In objFiles ReDim Preserve aryFiles(intFile) aryFiles(intFile) = objFile.Name intFile = intFile + 1 Next Set objFiles = Nothing Set objFolder = Nothing Set objFso = Nothing intFile = UBound(aryFiles) Randomize() intRnd = Int(Rnd() * intFile) Response.Write "" & aryFiles(intRnd) & "" %>