% On Error Resume Next FileLocation ="C:\Inetpub\Chippower\counter.txt" Set fs = CreateObject("Scripting.FileSystemObject") Set TextFile = fs.OpenTextFile(FileLocation) TotalHits = CInt(TextFile.ReadLine) TextFile.Close If Session("TotalHits") = "" Then Session("TotalHits") = TotalHits TotalHits = (TotalHits + 1) Set TextFile = fs.CreateTextFile(FileLocation, True) TextFile.WriteLine(TotalHits) TextFile.Close End If %>
Profile |
Contact Us
|
|||||
Home|Profile|Services|Products|Applications|Technology|News|Contact
Us |