Contenuto file di testo

[Romyna]

Ciao a tutti,
una domanda veloce sulla lettura di un file TXT con ASP... sono arrivata a capire come aprirlo e leggerne il contenuto però ho notato che ricevo un errore se il file TXT aperto non contiene nulla... come faccio ad intercettare prima l'errore e gestirlo (magari scrivendo io un testo di default)?
Dopo questo punto:
contenuto_testo = objFile.ReadAll

DOvrei inserire un controllo?

Ciao

[optime]

fa' vedere il codice attuale

[Romyna]

    Set objFile = objFile.OpenTextFile(Nome_File, 1)
    if isNull(objFile.ReadAll) Then
        Response.Write("vuoto")
    Else
        contenuto_file = objFile.ReadAll
   End if 

Ricevo l'errore: Input oltre la fine del file alla riga (contenuto_file = objFile.ReadAll)

[optime]

<% 
    set fso = CreateObject("Scripting.FileSystemObject") 
    set fil = fso.getFile(server.mappath("a.txt")) 
    if fil.size > 0 then 
        set fs = fso.opentextfile(server.mappath("a.txt")) 
        f = fs.readall() 
        fs.close: set fs = nothing 
    else 
        f = "File was empty" 
    end if 
    set fil = nothing 
    set fso = nothing 
 
    response.write f 
%> 

[Romyna]

Grazie optime!