<% 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
Demetrio Pitea
mail: demetrio.pitea@unimib.it
telefono: 02 6448 2823

Ugo Cosentino
mail: ugo.cosentino@unimib.it
telefono: 02 6448 2822

Giorgio Moro
mail: giorgio.moro@unimib.it
telefono: 02 6448 3471