Tælle linier i en txt fil!

Noget i retning af (klippet ud andetsteds):

strQuotesFile = Server.MapPath(\"../textfiles/quotes.txt\")
Set objFSO = Server.CreateObject(\"Scripting.FileSystemObject\")
Set objFile = objFSO.OpenTextFile(strQuotesFile, 1, false)
Set objFile2 = objFSO.OpenTextFile(strQuotesFile, 1, false) \' get number of lines in file
intLineCounter = 0
Do While Not objFile.AtEndOfStream
intLineCounter = intLineCounter + 1
objFile.ReadLine
Loop

erik -> Det ser meget rigtigt ud, men er linien:
Set objFile2 = objFSO.OpenTextFile(strQuotesFile, 1, false) \' get number of lines in file
intLineCounter = 0
ikke en man burde have fjernet inden man satte det ind?

Jo, objFile2-linien skal da fjernes ... hurrah for klippe kliistre...
Den anden, med intLineCounter, skal vi da have, ja ja

Igen hurra for klippe klistre, jeg tog en linie for meget.

Det er lige meget, jeg har fundet det et andet sted! Ellers tak for hjælpen!