Gem mange ting i txt fil

Hej. Der er en fejl i linje 24... Hvad skal jeg så skrive??


<html>
<title>Program</title>
<head>
</head>

<body>

<%



Dim fso, f, filespec
Set fso = CreateObject("Scripting.FileSystemObject")
filespec = Server.Mappath("ttt.txt")

dim Vars(10), N
n=0

' Åbner
Set f = fso.OpenTextFile(filespec,1)
' Læs linie for linie indtil slutningen af filen
Do While not f.AtEndOfStream
response.write f.readline & "<br>"

' Dette er linje 24
vars(n)=f.readline

n=n+1
Loop

' Gemmer
Set f = fso.OpenTextFile(filespec,2)

' Skriv tekst i en linie
for n=0 to n
f.WriteLine vars(n) & vbcrlf
next
f.WriteLine request.form("tekst")


f.Close

%>

</body>

</html>