File system object!!!

[april3]

Hej!

 

Har satt ihop följande för att registrera alla hit på en sida. Problemet är att varje gång någon besöker sidan så raderas det gamla och det nya skrivs in!!! Hur kan man få den att skriva på nästa rad? Liksom bara lägga till en ny rad med info bara! Eller går det liksom att göra så över huvudtaget med Filesystem objektet?

 

Följande är koderna:

 

 

<%
Option Explicit

' Set up Constants
Const ForWriting = 2 ' Input OutPut mode
Const Create = True

Dim MyFile
Dim FSO ' FileSystemObject
Dim TSO ' TextStreamObject
MyFile = Server.MapPath("counter.txt")
Set FSO = Server.CreateObject("Scripting.FileSystemObject")
Set TSO = FSO.OpenTextFile(MyFile, ForWriting, Create)
TSO.write Session.SessionID
TSO.write "|"& Now()
TSO.write "|"& Request.ServerVariables("http_user_agent")
TSO.write "|"& Request.ServerVariables("remote_addr")
TSO.write "|"& Request.ServerVariables("HTTP_ACCEPT_LANGUAGE")
TSO.WriteLine ""
TSO.close
Set TSO = Nothing
Set FSO = Nothing
%>

 

[Erki]

Om du byter ut raden

 

Set TSO = FSO.OpenTextFile(MyFile, ForWriting, Create)

 

mot

 

Set TSO = FSO.OpenTextFile(MyFile, ForAppending, Create)

 

borde det fungera bättre.

 

 

 

[april3]

Tacka tackar