<% 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 %>

Gruppo di ricerca
<% Dim lef, all_str, print_str strPath = Server.MapPath("area_gruppo.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 print_str = "
 " & print_str & "
" Response.Write (print_str) end if end if Loop objOpenFile.Close Set objOpenFile = Nothing Set objFSO = Nothing %>