Contador, falta uma coisa

Pessoal estou desenvolvendo um contador simples que vai computar os page views, mas eu quero que ele sempre adicione um número no arquivo e não adicione do lado, como está acontencendo, vejam aqui:<%Dim Lercont, GravarCont, fs,linhaSet fs = Server.CreateObject("Scripting.FileSystemObject")Set Lercont = fs.OpenTextFile(Server.MapPath("/dicaslnx/db/Contador/contador.txt"),1)Do While Lercont.AtEndOfStream <> Truelinha = Lercont.ReadLineResponse.Write linhaLoopLercont.CloseSet GravaCont = fs.OpenTextFile(Server.MapPath("/dicaslnx/db/Contador/contador.txt"),8) linha = (int(linha + 1)) Response.Write linha %>Funciona, ele adicona se eu colocar o GravaCont.Write = linha, mas ele grava assim 123456 em sequência... mas eu queria que ele não adicionasse um ao lado do outro sim somasse e deixa o arquivo apenas com o número da visita, ou então que ele limpasse o arquivo depois de ler o número e gravasse o novo número, alguém tem alguma idéia?