Como cuento el numero de lineas que contiene un archivo de texto?

[u_goldman]

A ver si esto te sirve:
<%
path= Server.MapPath(".")
Function parse_my_file(this_file)
Set fso = Server.CreateObject("Scripting.FileSystemObject")
Set my_file= fso.OpenTextFile(path & "\" & this_file, 1)
i=0
Do while not my_file.AtEndOfStream
my_file.readline
i= i + 1
Loop
parse_my_file= i
End Function
%>
<%
cuenta= parse_my_file("archivo.xxx ")
Response.Write("El archivo tiene " & cuenta & "lineas")
%>

Salu2,