skrive til tekstfil

www.bekhoj.dk/testchat.zip der er en chat der kører på en txt fil, den kan du  nok lære noget fra

<%
\' -----------------------------------------------------------------------
\' Åben og skriv til fil
\' Udviklet af : Thomas Jørgensen - www.SouthPark2k.dk
\' Dato : 29-Juni-2000
\' Kommentar : Source må bruges frit, men husk at det kun må downloades
\'  fra Netcoders.dk
File = \"file.txt\" \' Her skal navnet på filen stå.
\' -----------------------------------------------------------------------
If Request.Form(\"Send\") <> \"\" Then
tekst = Request.Form(\"tekst\")
dim fs,f
set fs=Server.CreateObject(\"Scripting.FileSystemObject\")
set f=fs.OpenTextFile(Server.MapPath(file), 2)
f.Write(tekst)
f.Close
set f=nothing
set fs=nothing
End If

Dim fs1, f1
set fs1=Server.CreateObject(\"Scripting.FileSystemObject\")
set f1=fs1.OpenTextFile(Server.MapPath(file), 1)
%>
<form method=\"POST\" action=\"skriv.asp\">
<textarea rows=\"10\" name=\"tekst\" cols=\"30\"><%=f1.readall%></textarea>
<input type=\"submit\" value=\"Send\" name=\"Send\">
</form>
<%
f1.Close
set f1=Nothing
set fs1=Nothing
%>