Vinixop_s

Bom dia pessoa! Valeu pela dica Marcos, mas mesmo assim ainda não funcionou! Aguardo ajuda de mais companheiros! Obrigado!

Olha eu aqui de novo! SK15 o código funcionou perfeitamente ou quase! Eu procurei de todas as formas tentar arrumar o problema com a acentuação! Salvei como utf-8, coloquei códigos nos cabeçalhos mas de nada adiantou! Tem como resolver este problema? Aguardo! Obrigado!

Bom dia pessoal! SK15 muito obrigado pela resposta! É isso mesmo, fiz como postou e deu tudo certinho! Adorei também o material de referência! Obrigado e um ótimo fim de semana!

Olá pessoal... Bom dia! Preciso muito resolver este problema e conto com vocês! Segue o código e o problema! <% caminho = "http://grupoalphabrasil.com.br/tempo/txt/Brasilia-DF.txt" Set FSO = Server.CreateObject("Scripting.FileSystemObject") Set TXT = FSO.OpenTextFile(caminho) response.write txt.readALL txt.close %> Bom agora vamos ao problema! Eu preciso abrir este texto que está em um outro servidor. Não precisa ser necessariamente com FSO, eu preciso apenas colocar o valor deste arquivo txt em uma variável asp para trata-la dentro do site! Estou a dias procurando uma solução e o mais próximo que consegui encontrar foi um leitor de RSS que lê apenas arquivos XML. Desde já obrigadão!

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.