| Build | Release Notes <% set fs = CreateObject("Scripting.FileSystemObject") set f = fs.GetFolder(Server.MapPath("relnotes")) ReDim fileNames(f.files.count) i = 0 For Each fldr in f.files fileNames(i) = fldr.name i = i + 1 Next For i = f.files.count - 1 to 0 step -1 set textStream = fs.OpenTextFile(Server.MapPath("relnotes") & "\\" & fileNames(i)) Response.Write " |
| " & fileNames(i) & " | " & textStream.readAll() textStream.Close() Next %> |
|
End of the table. |