|
SpaceTM Suites
Full Software Solutions Dedicated to Property Management |
|
Les suites SpaceMC
Des solutions complètes pour la gestion d’immeubles |
|
SpaceTM parceque l’espace c’est de l’argent |
|
SpaceTM Because space is money |
<%
Set FS=Server.CreateObject("Scripting.FileSystemObject")
Set RS=FS.OpenTextFile(Server.MapPath("counter.txt"), 1, False)
fcount=RS.ReadLine
RS.Close
fcountA = 10000
fcount = fcountA + fcount + 1
'This code is disabled due to the write access security on our server:
Set RS=FS.OpenTextFile(Server.MapPath("counter.txt"), 2, False)
RS.Write fcount
RS.Close
Set RS=Nothing
Set FS=Nothing
%>
This page has been visited <%=fcount%> times.
