% Set fs = CreateObject("Scripting.FileSystemObject") Set counterfil = fs.OpenTextFile("\\genfs2\www24\jytte\db\visits.cnt") counter = Clng(counterfil.ReadLine) counter = counter + 1 counterfil.close Set counterfil = fs.CreateTextFile("\\genfs2\www24\jytte\db\visits.cnt") counterfil.WriteLine(counter) counterfil.Close 'response.write Server.MapPath("/") %>
I |