Läsa rader ur textfil (asp/vbscript)

Set FSO = Server.CreateObject("Scripting.FileSystemObject")
Set prod_lista = fso.opentextfile( path & "/" & m_strFileName)
                
		dim strText, vLine
		VLine = 1
		do
			strText = prod_lista.readline()
			if strText <> eof then 'DET HÄR SOM INTE FUNKAR!!!!
                		response.write("Rad:" & vLine & " " & strText & "<br>")
				vLine = vLine + 1
			end if
		loop until strText = eof 'DET ÄR DET HÄR JAG FASTNAR PÅ!!
		
                prod_lista.close
                fso.deletefile path & "/" & m_strFileName
                response.write("<br>Filen har behandlats och tagits bort")