<% Set FileObject = Server.CreateObject("Scripting.FileSystemObject") Dir = Request.ServerVariables("SCRIPT_NAME") Dir = StrReverse(Dir) Dir = Mid(Dir, InStr(1, Dir, "/")) Dir = StrReverse(Dir) Arquivo_contador = Server.MapPath(Dir) & "/Acumulador_evento.txt" On Error Resume Next Set InStream = FileObject.OpenTextFile (Arquivo_contador, 1, False ) Valor_Antigo = Trim(InStream.ReadLine) Valor_Novo = Valor_Antigo + 1 Set OutStream = FileObject.CreateTextFile (Arquivo_contador, True) OutStream.WriteLine(Valor_Novo) ' response.write(valor_novo) ' response.end application("contador_evento")= Valor_Novo 'application.lock 'application("counter")=application("counter")+1 'Application.UnLock 'id=application("counter") %>

© CMMI is registered in the US Patent and Trademark Office by Carnegie Mellon University SM Capability Maturity Model Integration and SEI are service marks of Carnegie Mellon University