Gerar um TXT de um MDB

[spynet 0]

Tenho o codigo abaixo, que pega certinho os dados do banco de dados, mais na hora que grava no .TXT ele grava somente o Ultimo Registro.Ou seja, preciso fazer um loop para gravar todos os registros.E onde faço e como???Se alguem puder me ajudar.....<% Response.Buffer=trueResponse.CacheControl = "no-cache"Response.AddHeader "pragma", "no-cache"Response.Expires = -1set rs= Server.CreateObject("ADODB.RecordSet")set my_conn= Server.CreateObject("ADODB.Connection")my_Conn.Open ConnStringStrSql = "Select * FROM Membros WHERE CodMembros"rs.Open StrSQl, my_conn, 2, 3''' LOOP PARA PEGAR OS DADOS DO BANCO DE DADOSWhile not rs.eofNome = rs("nome")Email = rs("email")Data = rs("dtnasc_dia")&"/"&rs("dtnasc_mes")&"/"&rs("dtnasc_ano")Endereco = rs("endereco")Bairro = rs("bairro")Cidade = rs("cidade")Estado = rs("estado")Cep = rs("cep")Telefone = rs("telefone")Rs.MoveNextWend''' FECHAMOS O BDrs.closeSet rs = nothing''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''' DECLARAMOS AS VARIAVEIS UTILIZADAS NO CODIGODim objFSO, objCriaArq, strNome, strEmail, strData, strEndereco, strBairro, strCidade, strEstado, strCep, strTelefone''' NOME DO ARQUIVO .TXT GERADOArquivo = "relatoriogeral.txt"''' VARIAVEISstrNome = NomestrEmail = EmailstrData = DatastrEndereco = EnderecostrBairro = BairrostrCidade = CidadestrEstado = EstadostrCep = CepstrTelefone = Telefone''' CRIAMOS AS FUNCOES QUE IREMOS UTILIZAR PARA VALIDAR OS DADOS ''' E ADICIONAR ZEROS OU SIMPLESMENTE ESPAÇO NAS STRINGS INFORMADASFunction adZero(sText, sQuant, pTipo) ''' SE NÃO CONTIVER VALOR ALGUM SAIMOS DA FUNÇÃO IF isNull(sText) Then Exit Function ''' VERIFICAMOS SE A QUANTIDADE SOLICITADA É IGUAL A QUANTIDADE DE CARACTERES DO TEXTO IF len(sText) >= sQuant Then ''' SE TRUE, NÃO ACRESCENTAMOS NADA adZero = sText Else''' SE FALSE, VERIFICAMOS SE É ESPAÇO OU NUMERO Select Case pTipo ''' E ADICIONAMOS O VALOR SOLICITANDO A STRING PASSADA Case 1 adZero = sText & string(sQuant - len(sText), " ") Case 2 adZero = string(sQuant - len(sText), "0") & sText End Select End IF End Function ''' RETIRAMOS AS BARRAS DA DATA' strData = Replace(strData,"/","") ''' RETIRAMOS O PONTO E A VIRGULA DO VALOR' strValor = Replace(strValor,".","") ' strValor = Replace(strValor,",","") ''' APAGANDO O ULTIMO TXT GERADO E INCLUINDO OUTROSet fsoObject = CreateObject("Scripting.FileSystemObject") sCaminho1 = Server.MapPath (Arquivo)''' ABAIXO VERIFICA SE O ARQUIVO .TXT EXISTE E DEPOIS DELETA PARA CRIAR OUTRO ATUALIZADOIf fsoObject.FileExists(server.MapPath(Arquivo)) = false thenElsefsoObject.DeleteFile(sCaminho1)End IfSet fsoObject = Nothing ''' INDICAMOS O CAMINHO DE ONDE SERÁ SALVO O ARQUIVO PADRONIZADO var_Caminho = Server.MapPath (Arquivo) ''' CRIAMOS AS INSTANCIAS PARA CONECTAR O FSO Set objFSO = CreateObject("Scripting.FileSystemObject") ''' CRIAMOS A INSTANCIA PARA CRIAR E ABRIR O ARQUIVO TXT Set objCriaArq = ObjFSO.OpenTextFile(var_Caminho, 8, True, False) ''' USAMOS UMA PARAMETRO PARA ESCREVER DENTRO DO ARQUIVO TXT objCriaArq.Writeline( adZero(strNome, 60, 1) &_ adZero(stremail, 60, 1) &_ adZero(strData, 12, 1) &_ adZero(strEndereco, 30, 1) &_ adZero(strBairro, 30, 1) &_ adZero(strCidade, 30, 1) &_ adZero(strEstado, 30, 1) &_ adZero(strCep, 30, 1) &_ adZero(strTelefone, 30, 1) )''' DESTRUIMOS AS INSTANCIAS CRIADAS Set objCriaArq = Nothing Set ObjFSO = Nothing %>Abraços,Adilson

[ythalorossy 0]

faz um loop que peguei valor pór valor e ao mesmo tempo graveRs = select * from tabelado while not Rs.Eofgrava no txt o registro atualMove.nextcara deu branco aqui...mas acho que deu para entender.Ythalo RossyAmigo, voce conseguiu resolver seu problema? Eu tentei bastante mas tambem não consegui. Se voce tem a solução, poderia repassar?? Obrigado