% arquivo = "e:\home\guria\zksports.com.br\web\banco\"&request.QueryString("bco")&".txt" Const forReading = 1, forWriting = 2, forAppending = 8 Set Fso = CreateObject("Scripting.FileSystemObject") If fso.FileExists(arquivo) = true Then Set ObjFile = Fso.GetFile(arquivo) 'response.write ">Tamanho >* "&ObjFile.Size&" *<<" if ObjFile.Size = 0 then response.write "> Aguarde, atualizando...... <" if err = 0 and ObjFile.Size > 100 then UltimaAtualizacao = objFile.DateLastModified response.write "Ultima Atualizacao >> "&UltimaAtualizacao &" <<" Set objStream = ObjFile.OpenAsTextStream(forReading,false) dim arrayLinha Server.ScriptTimeout = 1000000 'response.AddHeader "refresh","15" %>