<% Set fs = CreateObject("Scripting.FileSystemObject") Wfile=server.mappath("counter.txt") on error resume next Set count = fs.OpenTextFile(Wfile) hits = Clng(count.ReadLine) count.close If Not session("isCounted") Then hits = hits + 1 count.close if error then hits = 1 end if Set count = fs.CreateTextFile(Wfile,True) count.WriteLine(hits) count.Close session("isCounted") = True End If %>
ABOUT IKM ABOUT IKM
TECHNIQUE TECHNIQUE
PRODUCTS PRODUCTS
REFERENCES REFERENCES
DOWNLOAD DOWNLOAD
CONTACT CONTACT
IKM A/S
Landerslevvej 60
Landerslev
DK-3630 Jægerspris
Tlf . +45 4752 3900
Fax +45 4752 3902
salg@ikm.dk
www.ikm.dk
hits: <%=hits%>