Jag har en kodsnutt som jag använder till en räknare. Om jag skulle vilja använda denna till att istället spara text i textfilen, och inte skriva över utan lägga efter i filen, hur skulle jag lämpligen omforma denna kod.
Jag har förstått så mycket som att jag ska byta ut ettan mot en åtta för att den inte ska skriva över filen, men vad behöver jag mer ändra på?
Tacksam för hjälp!
<%
application.lock
application.contents("antal")= application.contents("antal") +1
application.unlock
Set F = CreateObject("Scripting.FileSystemObject")
Set T = F.CreateTextFile("antal.txt")
T.WriteLine Application.Contents("antal")
T.Close
Set A = CreateObject("Scripting.FileSystemObject")
Set B = A.OpenTextFile("antal.txt", 1)
Visits = B.ReadLine
B.Close
%> Annonsen har lästs <% =Visits %> gånger
------------------
Qwerty
Den som söker han letar...