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

Contatti
Marina Lasagni
mail: marina.lasagni@unimib.it
telefono: 02 6448 2834