Problem med textstreamobject

Hej! Jag har ett enkelt problem, jag försöker skriva ut informationen ur en textfil i ett formulär.

koden ser ut såhär:

<%
address=server.mappath("undersidor/index.txt")
Const ForReading = 1, ForWriting = 2, ForAppending = 8
Dim fso, f
Set fso = CreateObject("Scripting.FileSystemObject")
Set f = fso.OpenTextFile(address, ForWriting, True)
%>

<form action="default.asp?status=1" method="post">
<textarea name="index" rows="4" cols="50"><% f.readall %></textarea><br />
<input type="submit" value="Ändra innehåll">

Vad ska <% f.readall %> ändras till?

Du måste ha ForReading inte ForWriting.