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.