<% 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" %>
<% response.Flush() arrayLinha=split(ObjStream.ReadLine,";",-1,1) %> <%' if not isnumeric(arrayLinha(1)) then response.write ">>" %> <% do While Not ObjStream.AtEndOfStream arrayLinha=split(ObjStream.ReadLine,";",-1,1) %> <% loop 'Destruiremos e fecharemos o FSO e o acesso ao arquivo de texto objStream.Close end if else response.write "erro aqui" end if Set objStream = nothing Set objFSO = Nothing %>
 <%=arrayLinha(0)%>  <%=arrayLinha(1)%>  <%=arrayLinha(2)%>  <%=arrayLinha(3)%>  <%=arrayLinha(4)%>  <%=arrayLinha(5)%>
 <%=arrayLinha(0)%>  <%=arrayLinha(1)%>  <%=arrayLinha(2)%>  <%=arrayLinha(3)%>  <%=arrayLinha(4)%>  <%=arrayLinha(5)%>