Et voilą...
codice:
<%
Option Explicit
const NomeFile = "Categorie.txt"
dim FileSystemObject
dim File
dim path
dim appo_Stringa
dim Stringa, OLD_Stringa
dim Posizione
OLD_Stringa = ""
path = Server.MapPath(NomeFile)
Set FileSystemObject = CreateObject("Scripting.FileSystemObject")
if FileSystemObject.FileExists(path) then
Set File = FileSystemObject.OpenTextFile(path,1)
Do While File.AtEndOfStream <> True
appo_Stringa = File.ReadLine
Posizione = InStr(1,appo_Stringa,">") - 1
Stringa = left(appo_Stringa,Posizione)
if OLD_Stringa <> Stringa then
Response.Write Stringa & "
"
OLD_Stringa = Stringa
end if
Loop
File.Close
set File = Nothing
end if
set FileSystemObject = Nothing
%>