Tilføj i en txt fil

http://www.sloppycode.net/fso/?m=138
Nederst på siden fra TextStream handler det om tekst filer

Når jeg nu har givet 100 point kan i så ikke give mig en kode?

Kau hvad har du gang i???

Hej. Dette eksempel åbner filen og skriver den nye tekst efter.

<%
dim tek

Set fso = CreateObject("Scripting.FileSystemObject")
filnavn = server.mappath("Nyheder.txt")

set  f = fso.opentextfile(filnavn,1,true)

if not f.atendofstream then
do while not f.atendofstream
  tek = tek & f.readline & vbcrlf
loop
else
tek=""
end if

f.close

dim INPUTDATA

' INPUTDATA SKAL BLIVE DEN NYE NYHED
' FX  >> inputdata = request.form("NyNyhed")

tek = tek & inputdata

set f = fso.opentextfile(filnavn,2)
f.write(tek)

f.close

%>

KantoRaZa·NorthCode