ספירת שורות, איך?

אני מציג תוכן של דף בעזרת FSO:


Set FSO = Server.CreateObject("Scripting.FileSystemObject")
Set infile = FSO.OpenTextFile(Server.MapPath("../member" & Request("file_name")))
Response.Write Replace( Server.HTMLEncode(infile.ReadAll), vbNewLine, "<br />" & vbNewLine )
infile.Close


אני מנסה להבין איך אני יכול לשים מספר ליד כל שורה במסמך. אשמח לכל כיוון.

פפר!