<% 'Set MyFileObject=Server.CreateObject("Scripting.FileSystemObject") 'Set ts=MyFileObject.OpenTextFile(server.MapPath("counter.txt"),1) 'dim arraytemp(3), n 'arraytemp(0) = Trim(ts.ReadLine) + 1 'arraytemp(1) = ts.ReadLine 'arraytemp(2) = ts.ReadLine 'Set MyFileObject=Server.CreateObject("Scripting.FileSystemObject") 'Set MyFile=MyFileObject.OpenTextFile(server.MapPath("counter.txt"),2,True,-2) 'MyFile.WriteLine arraytemp(0) 'MyFile.WriteLine arraytemp(1) 'MyFile.WriteLine arraytemp(2) 'MyFile.Close 'set MyFile = Nothing response.redirect "../index.html" %>