asp igen!!!

<%
Dim fsoa, fa, filespecq
Set fsoa = CreateObject("Scripting.FileSystemObject")
filespecq = Server.Mappath("chat/chat_" & p & ".txt")
Set fa = fsoa.OpenTextFile(filespecq,2)

' Skriv tekst i en linie
fa.WriteLine " " & request.form("name") & " - [" & Tim & " ] : " & request.form("text")

Set fa = fsoa.OpenTextFile(filespecq,1)
Response.write fa.ReadLine

Response.redirect("chat.asp?p=" & paa & "")

fa.Close
%>

Når jeg skriver noget til tekstfil'en, sletter alt i tekstfil'en... Men den skal bare tilfør, en ny linie tekstfilen...