<% strArqTexto = replace(Server.MapPath(Request.ServerVariables("SCRIPT_NAME")), ".asp", ".txt") 'Cria o objeto de acesso ao arquivo texto Set objFSO = Server.CreateObject("Scripting.FileSystemObject") ' Abre o arquivo texto Set objContador = objFSO.OpenTextFile(strArqTexto, 1, True) ' Le o conteudo atual do arquivo texto If Not objContador.AtEndOfStream Then ' determina o valor do contador iConta = CLng(objContador.ReadAll) Else ' se o arquivo nao existe inicia com zero iConta = 0 End If ' Fecha o arquivo e destroi o objeto objContador.Close Set objContador = Nothing ' incrementa o contador iConta = iConta + 1 ' Sobrescreve o arquivo texto existente Set objContador = objFSO.CreateTextFile(strArqTexto, True) ' Salva e Atualiza o contador objContador.Write iConta ' fecha e destroi o objeto objContador.Close Set objContador = Nothing ' Destroi o objeto FSO Set objFSO = Nothing %>