METHOD:  TextStream.ReadLine
Implemented in version 2.0
 
object.ReadLine

Reads a single line (excluding the newline character) from a TextStream file and returns the contents as a string.

Code:
<%
dim filesys, text, readfile, contents
set filesys = CreateObject("Scripting.FileSystemObject")
Set text = filesys.CreateTextFile("c:\somefile2.txt")
text.Write "A quick example of the ReadLine method"
text.close
set readfile = filesys.OpenTextFile("c:\somefile2.txt", 1, false)
contents = readfile.ReadLine
readfile.close
Response.Write "The line contains the following text - '" & contents & "'."
%>

Output:
"The line contains the following text - 'A quick example of the ReadLine method'.