txt que no se cree cada vez, que siga escribiendo???

[jorcri]

Hola, creo un .txt que va almacenando las entradas de los usuarios a la intranet, he incluye la fecha y la hora de entrada, pero cada vez me crea el archivo de nuevo borrando el existente, y no se como hacer para que siga escribiendo debajo de cada uno, osea:

usuario1 --- 07/06/2005 20:17:52
usuario2 --- 07/06/2005 20:17:52
etc....

siempre me sale el primero ya que reemplaza el .txt.

este es el codigo:

Código:

<%
    ahora = now()
    entrada_usuario = Session("N_usuario")
    filename=server.mappath("txt/usuarios.txt")
    Set fs = CreateObject("Scripting.FileSystemObject")
    Set writefile = fs.OpenTextFile(filename, 2, True)
    writefile.writeline(entrada_usuario & "  ---  " & ahora)
    writefile.Close
    set writefile=nothing
    set fs=nothing
%>

y claro tambien por donde tiro para que indique la salida, osea la hora que salio de la intranet en el txt.

gracias y un saludo!!!