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!!!

[AlZuwaga]

Creo que es porque estás abiendo el archivo de texto con el parámetro 2 que es "forfriting" que lo que hace es ree3mplazar todo el contenido al agregar uno nuevo. Lo tendrías que abrrir con "forappending" para agregar contenido manteniendo el anterior. No recuerdo cuál número es, pero estoy casi seguro que es el 8 (probalo). O sea, tendrías que cambiar el número 2 por el número 8 en la siguiente línea:

Set writefile = fs.OpenTextFile(filename, 2, True)

[u_goldman]

o lee antes todo el contenido del archivo y guardalo en una variable, despues concatenas esta variable con lo que vayas a escribir y finalmente escribes todo.

Salu2,

[jorcri]

joer cierto, como le lio, hay veces que busco el fallo y es tan simple como eso, si lo tenia en una xuletilla joer, bueno lo dejo aqui para quien lo necesite:

ForReading | 1 | Abrir un archivo sólo para lectura. No puede escribir en este archivo.
ForWriting | 2 | Abrir un archivo para escritura.
ForAppending | 8 | Abrir un archivo y escribir al final del archivo

muchas gracias.

Y como procedo que al salir de la intranet, escriba tambien en el .txt lo mismo, bueno indicando que es salida claro,

¿con una variable y esta en cada pagina al salir la ejecute????

gracias de nuevo!!!