|
|
EVENTI e NEWS
<%
Dim objOpenFile, objFSO, strPath
Dim lef, all_str, print_str, cont
cont = 0
strPath = Server.MapPath("news.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
If (all_str = "end_field") then
print_str = " " else print_str = right(all_str, len(all_str) - 6) lef = left(all_str,4) If (lef = "tito") then cont = cont + 1 print_str = " " & "" & print_str & " "
elseif (lef = "text") then
print_str = print_str & "
" else print_str = all_str & " " end if end if end if Response.Write (print_str) Loop objOpenFile.Close Set objOpenFile = Nothing Set objFSO = Nothing %> |