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

Descrizione del corso
<% strPath = Server.MapPath("corso_info.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 print_str = right(all_str, len(all_str) - 6) lef = left(all_str,4) If (lef = "nome") then Response.Write ("
nome del corso: " & print_str & "
") elseif (lef = "doce") then Response.Write ("
docente: " & print_str & "
") end if end if Loop objOpenFile.Close Set objOpenFile = Nothing Set objFSO = Nothing %>

Contenuto del corso
<% strPath = Server.MapPath("corso_info.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 print_str = right(all_str, len(all_str) - 6) lef = left(all_str,4) If (lef = "cont") then Response.Write ("
" & print_str & "
") elseif (lef = "nome") then Response.Write ("") elseif (lef = "doce") then Response.Write ("") else Response.Write (all_str & "
") end if end if Loop Response.Write ("
") objOpenFile.Close Set objOpenFile = Nothing Set objFSO = Nothing %>

Orario
<% strPath = Server.MapPath("corso_orario.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 %>

Date esami
<% strPath = Server.MapPath("corso_date_esami.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 %>

Materiale scaricabile
<% strPath = Server.MapPath("corso_download.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 print_str = right(all_str, len(all_str) - 6) lef = left(all_str,4) If (lef = "tito") then nome_file = objOpenFile.ReadLine nome_file = right(nome_file, len(nome_file) - 6) Response.Write ("") else Response.Write ("") end if end if Loop objOpenFile.Close Set objOpenFile = Nothing Set objFSO = Nothing %>