läsa antal rader

Skulle man här kunna läsa in antalet rader i textfilen i en variabel?

<%

                                         Set A = CreateObject("Scripting.FileSystemObject")
                                         Set B = A.OpenTextFile ("c:\inetpub\wwwroot\nyheter\news.txt")
                                         Nyheter = B.ReadAll
                                         B.close

                                         %>

------------------
Qwerty

Den som provar han testar...