<% Dim objOpenFile, objFSO, strPath strPath = Server.MapPath("titolo_cdl.txt") Set objFSO = Server.CreateObject("Scripting.FileSystemObject") Set objOpenFile = objFSO.OpenTextFile(strPath, 1) Do While Not objOpenFile.AtEndOfStream all_str = objOpenFile.ReadLine Response.Write (" Didattica -> " & all_str & "") Loop objOpenFile.Close Set objOpenFile = Nothing Set objFSO = Nothing %>

<% Response.Write (all_str) %>
Elenco degli esami del corso di laurea: