<% Set Fso = CreateObject("Scripting.FileSystemObject") contxt = Server.MapPath("cont.txt") Set FR = Fso.OpenTextFile(contxt,1,False) cont = FR.ReadLine Set FW = Fso.OpenTextFile(contxt,2,false) cont = cont + 1 FW.WriteLine (cont) FW.Close FR.Close Set FW = Nothing Set FR = Nothing Set Fso = Nothing %>
<%=cont%>