fso txt

<%
Dim fso, f, filespec

filespec = Server.Mappath("tekst.txt")
Set fso = CreateObject("Scripting.FileSystemObject")

Set f = fso.OpenTextFIle(filespec, 1)

Do While f.AtEndOfStream <> True
f.ReadLine
a = a + 1
Loop
f.Close

if a > 10 then
Set f = fso.OpenTextFile(filespec,2)
else
Set f = fso.OpenTextFile(filespec,8)
end if

f.Writeline Request.Form("tekst")
f.close
response.redirect "default.asp"
%>

hvordan for dette til at skrive på første linje hvis antallet af linjer er over 10... altså linje 11 skal skifes med 1.