Scripting.FileSystemObject

Hejsan! har en fråga! Kan man ha något annat en scripting? Det är till en räknare med en text fil som håller koll på besökare. Gör inte att köra med det och antivirus program med scriptblockering. Ifall man vill att det ska funka så får man ta bort scriptblockeringen i antivrus programmet.

koden ser ut så här...

<%
Set fs = CreateObject("Scripting.FileSystemObject")
Path = server.mappath("counter.txt")
Set a = fs.OpenTextFile(path)
counter = CLng(a.ReadLine)
If Session("counter") = "" then
Session("counter") = counter
counter = counter + 1
a.close
Set a = fs.CreateTextFile(path, True)
a.WriteLine(counter)
End If
a.Close
Response.Write counter
%>