<% Dim objOpenFile, objFSO, strPath, titolo_corso, all_str strPath = Server.MapPath("titolo_lab.txt") Set objFSO = Server.CreateObject("Scripting.FileSystemObject") Set objOpenFile = objFSO.OpenTextFile(strPath, 1) all_str = objOpenFile.ReadLine titolo_corso = all_str objOpenFile.Close Set objOpenFile = Nothing Set objFSO = Nothing Response.Write (" Laboratori -> " & titolo_corso & "") %>

Descrizione del laboratorio
nome del laboratorio: Laboratorio di mobilità dei contaminanti

locazione: stanza 2029b

responsabile: Marina Lasagni

attrezzature: GC-MSD, HPLC, GC-FID, SFE

   

Descrizione delle attività
<% strPath = Server.MapPath("lab_attivita.txt") Set objFSO = Server.CreateObject("Scripting.FileSystemObject") Set objOpenFile = objFSO.OpenTextFile(strPath, 1) Do While Not objOpenFile.AtEndOfStream print_str = "" all_str = objOpenFile.ReadLine If (len(all_str) > 0) then Response.Write ("
" & all_str & "
") end if Loop objOpenFile.Close Set objOpenFile = Nothing Set objFSO = Nothing %>

Progetti di ricerca
<% strPath = Server.MapPath("lab_progetti.txt") Set objFSO = Server.CreateObject("Scripting.FileSystemObject") Set objOpenFile = objFSO.OpenTextFile(strPath, 1) Do While Not objOpenFile.AtEndOfStream print_str = "" all_str = objOpenFile.ReadLine If (len(all_str) > 0) then Response.Write ("
" & all_str & "
") end if Loop objOpenFile.Close Set objOpenFile = Nothing Set objFSO = Nothing %>