<% 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) & "\data\Acumulador.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) %>
São Paulo,
marcas
patentes
outros serviços
internet
logomarca
banco de marcas
pesquisa
e-mail
visitante nº <%=Valor_Novo%>