try this code !
<%
'Creazione dell'istanza FSO.
Set fsoMyFile = CreateObject("Scripting.FileSystemObject")
'Apertura del file, in lettura dati (1).
Set tsTextStream = fsoMyFile.OpenTextFile(Server.MapPath("file.doc"), 1)
conta = 0
do while not tsTextStream.AtEndOfStream
tsTextStream.ReadLine
conta = conta + 1
Loop
tsTextStream.Close
%>
The number is: <%=conta%>
Steweb
Visit my web site !
www.steweb.net