Olá pessoal! Tudo bom?! Espero que sim... Abraços a todos! Meu problema é o seguinte: O código abaixo lê um arquivo de texto e em seguida salva as informações em um banco de dados. O problema é que na hora dele buscar no arquivo txt todos os dados ele pega apegas a primeira linha, o While só funciona quando o faço só, quando uso junto com o Do Until ele só pega o primeiro registro. Segue o código: <% Server.ScriptTimeout = 1200 '/////////////////////////////////////////////////////////////// ' Conectando com a base de dados '/////////////////////////////////////////////////////////////// set conexao = Server.CreateObject("ADODB.Connection") conexao.Open "Provider=Microsoft.jet.OLEDB.4.0;Data Source=C:\Inetpub\wwwroot\texto\db\master.mdb" 'conexao.Open "Provider=Microsoft.jet.OLEDB.4.0;Data Source=C:\Domains\sigcrbh.com.br\wwwroot\sigcrbh\db\master.mdb" conexao.CursorLocation = 3 'O parâmetro forReading é utilizado somente para leitura. ForReading = 1 'Informe aqui o caminho do arquivo TXT str_caminho = "C:\Inetpub\wwwroot\texto\lista.txt" 'Cria o objeto Set objeto = CreateObject("Scripting.FileSystemObject") '//////////////////////////////////////////////////////////////// ' Funções que estavam no arquivo de include '//////////////////////////////////////////////////////////////// 'Condição para verificar se o arquivo exite no local informado If (objeto.FileExists(str_caminho)) Then 'Abertura do objeto e loop para ler o arquivo TXT Set str_fso = objeto.OpenTextFile(str_caminho,ForReading,False) While (not str_fso.AtEndOfStream) campo = str_fso.readline do Until id=10000 id = id + 1 SQL = "UPDATE email SET email='"&campo&"' WHERE id = "&id&"" Set Rs = Conexao.Execute(SQL) response.write "Email número: " &id & " de: " &campo & " Foi atualizado. <br>" Loop wend response.end() Set str_fso = nothing set objeto = nothing else response.write "Arquivo não encontrado !!!" End If %> Até breve e uma ótima semana a todos.