Læs linier i text dokument.....

Jeg har lavet nedenstående script....

<%
'*************************************************************************

Option Explicit

'*************************************************************************

Dim fso
Set fso = Server.CreateObject("Scripting.FileSystemObject")

Dim ts
Set ts = fso.OpenTextFile("C:\fil.txt", 2)


Dim arrLines
arrLines = Split(ts.ReadAll, VBCrlf)


'*************************************************************************

For Each line In arrLines
 
    Response.Write line &"<br>"
   
Next

'*************************************************************************

Set ts = Nothing

Set fso = Nothing

'*************************************************************************
%>

Men jeg får hele tiden fejlen:

Error Type:
Microsoft VBScript runtime (0x800A0036)
Bad file mode

Hvem kan guide mig???