<% Response.Expires = 0 Set fs = CreateObject("Scripting.FileSystemObject") Path = server.mappath("cgi-bin/conta.txt") Set a = fs.OpenTextFile(path) conta = CInt(a.ReadLine) If Session("conta") = "" then Session("conta") = conta conta = conta + 1 a.close set a = nothing Set a = fs.OpenTextFile(path, 2,true) a.Write(conta) End If a.Close %> var str str = <%=conta%>; document.write (str)