FSO de sidste 100 linier

du kan ikke rette i en fil via fso.. så skal du overskrive den gamle fil..

du kan evt lave noget:

set fso = CreateObject("Scripting.FileSystemObject")
filespec = Server.Mappath("referer.html")
set readfile = filesys.OpenTextFile(filespec, 1, false)
contents = readfile.ReadAll
readfile.close

strAll=split(contents,vbcrlf)

Set f = fso.OpenTextFile(filespec,8)
for t=ubound(strAll)-99 to ubound(strAll)
f.WriteLine strAll(t)
next
f.WriteLine "<a href='" & Hvor & "' target='_blank'>" & Hvor & "</a><br>"

Set f = fso.OpenTextFile(filespec,1)
f.Close


så skulle den sørge for at holde de 100 nyeste i filen..