asp 텍스타파일에서 한줄씩 읽어오기

Const ForReading = 1, ForWriting = 2
Dim fso, MyFile
Set fso = SERVER.CreateObject("Scripting.FileSystemObject")
Set MyFile = fso.OpenTextFile("C:\a.txt", ForReading)
i = 0
while ((not MyFile.AtEndOfStream) and i < 1000)
  ReadLineTextFile = MyFile.ReadLine
  response.write ReadLineTextFile & "<br>"
  i =  i +1

wend