tentando gerar arquivo texto

[rafa-martin 2]

pessoal estou tentando gerar um arquivo txt dessa forma:<%' *********** DEFINE AS VARIÁVEIS DE CONEXÃO *************Option ExplicitDim SucessoDim path, arqtxt, objFSO%><!-- #Include File="Conexao.asp" --><%'String_SQL = "SELECT data, cnpj_farmacia, codigo_brick, situacao, obs FROM VisitasRealizadas"'Set Conj_Registros = Banco.Execute(String_SQL)%><%'Conecta com o BDSet objFSO = Server.CreateObject("Scripting.FileSystemObject")path = "\\Servidor\arquivos\INTRANET\www\ProjetoDesenvolvimentoSite\Dados\arquivo.txt"Set arqtxt = objFSO.OpenTextFile(path, 8, true)while not rs.eofarqtxt.WriteLine(Conj_Registros("data"))arqtxt.WriteLine(Conj_Registros("cnpj_farmacia"))arqtxt.WriteLine(Conj_Registros("codigo_brick"))arqtxt.WriteLine(Conj_Registros("situacao"))arqtxt.WriteLine(Conj_Registros("obs"))Conj_Registros.movenextwendarqtxt.close%>só que quando eu vou na página e clico no botão gerar arquivo txt está demorando muito para redirecionar para uma outra página que informa se o arquivo foi gerado ou não. E acaba nem mostrando algum tipo de erro (se houver).alguém pode me ajudar?

[Mário Monteiro 179]

onde esta redirecionando??

[rOcKLoCo 0]

veja se você não colocou dentro de um Loop infinito.. não estou vendo o seu recordset mandando pular para o próximo registro..falows

[rafa-martin 2]

ele teria que redirecionar para ArquivoTXTGerado.asp. Faço isso através do botão onde é type="submit" e no form action="ArquivoTXTGerado.asp"como meu recordset não vai para o próximo registro?olha aqui:Conj_Registros.movenext -> aqui pula par o próximo registro.e então como faço? o que eu faço?

[rafa-martin 2]

achei um erro:while not rs.eof ná verdade é Conj_Registros.eof.achei que poderia ser isso. mais continua demorando e não vai pra lugar nenhum.o que pode ser?

[Mário Monteiro 179]

esta escrevendo algo no txt??

[Salgado 4]

Faça um teste simples, tente só ler um arquivo via FSO no caminho que você aponta no FSO. Salvo engano às vezes o FSO não lê em rede caso a unidade não seja mapeada.

[rafa-martin 2]

marioufpa, o problema é que ele nem gera o txtcara, na tabela que estou usando tem 1014 linhas (registros).será que não é por causa disso?

[Mário Monteiro 179]

marioufpa, o problema é que ele nem gera o txt

cara, na tabela que estou usando tem 1014 linhas (registros).

será que não é por causa disso?

cara o blema é que se tivesse certo ele devia ir fazendo por parte no decorrer do laço...

 

ele não faz de uma vez...

[rafa-martin 2]

o problema é que el nem carrega a página.a barra de progresso para na metade.

[Mário Monteiro 179]

post novamente seu codigo...agora como esta depois das alterações...

[rafa-martin 2]

o código que uso para gerar o arquivo txt é:Set objFSO = Server.CreateObject("Scripting.FileSystemObject")path = "\\Servidor\arquivos\INTRANET\www\ProjetoDesenvolvimentoSite\Dados\arquivo.txt"Set arqtxt = objFSO.OpenTextFile(path, 8, true)while not Conj_Registros.EOF arqtxt.WriteLine(Conj_Registros("data")) arqtxt.WriteLine(Conj_Registros("cnpj_farmacia")) arqtxt.WriteLine(Conj_Registros("codigo_brick")) arqtxt.WriteLine(Conj_Registros("situacao")) arqtxt.WriteLine(Conj_Registros("obs")) Conj_Registros.movenextresponse.write Conj_registros("cnpj_farmacia")wendarqtxt.closefiz de outra forma também, mais acontece a mesma coisa:'Cont_TXT = ""'while not Conj_Registros.eof'Cont_TXT = Cont_TXT &_'Conj_Registros("data") & vbCrLf &_'Conj_Registros("cnpj_farmacia") & vbCrLf &_ 'Conj_Registros("codigo_brick") & vbCrLf &_'Conj_Registros("situacao") & vbCrLf &_'Conj_Registros("obs")'response.write Conj_registros("cnpj_farmacia")'Conj_Registros.movenext'response.write Cont_TXT'wend'Set objFSO = Server.CreateObject("Scripting.FileSystemObject")'path = "\\Servidor\arquivos\INTRANET\www\ProjetoDesenvolvimentoSite\Dados\arquivo.txt"'Set arqtxt = objFSO.OpenTextFile(Path, 2, True)'arqtxt.Write(Cont_TXT)'arqtxt.close

[Salgado 4]

Faça um teste simples, tente só ler um arquivo via FSO no caminho que você aponta no FSO. Salvo engano às vezes o FSO não lê em rede caso a unidade não seja mapeada.

<{POST_SNAPBACK}>

Alguém leu isso aqui?