[ASP+FSO]Aprire, leggere e scorrere file di testo

[Luis33]

Buonasera a tutti.

Tramite ASP + FSO devo aprire, leggere e scorrere un file di testo.

Quando durante la lettura del file di testo si trova la parola deve essere stampato a video tutto quello che è contenuto nel file di testo appunto iniziando dalla parola sino alla parola .

Questo è il codice ASP che sto usando ma non stampa nulla a video, perchè?

    filePath = Server.Mappath("salud.txt")
    Set objFileSystem = Server.CreateObject("Scripting.FileSystemObject")   
     
    if objFileSystem.FileExists(filePath ) then	
    Set objFile = objFileSystem.OpenTextFile(filePath, 1)
        
    Do While Not objFile.AtEndofStream
       objFile.ReadAll		    
       if Instr(filePath, "") then    
           Response.Write objFile.ReadLine & "
"    
       end if
    Loop	
    
    objFile.Close	
    Set objFile=Nothing
    
    end if
    Set objFileSystem=Nothing