fso - sql server 2000

[Loma 0]

Obrigada pela ajuda.

 

Eu to fazendo o seguinte:

 

<!--#include file="../includes/conn.asp"--><%sql = "select email from newsletter"set rs = cn.execute(sql)Set fso = server.CreateObject("Scripting.FileSystemObject")set pasta = fso.getfolder(server.mappath(".\"))Set TextStream = pasta.CreateTextFile("backup.txt")while not rs.eofTextStream.WriteLine(rs("email"))rs.movenextwendTextStream.Closeset textstream = nothingset pasta = nothingset fso = nothingset rs= nothingcn.closeset cn = nothingresponse.write "backup feito com sucesso"%>

ta dando certo e talz o problema é que ta gravando no txt assim:

 

email@email.com

email@email.com.nr

...

 

pulando linha e eu queri colocar um do lado do outro separado por virgula.

Pode ajudar?

 

bjs

[Salgado 4]

É quase a mesma coisa:

<!--#include file="../includes/conn.asp"-->
<%

sql = "select email from newsletter"
set rs = cn.execute(sql)

Set fso = server.CreateObject("Scripting.FileSystemObject")
set pasta = fso.getfolder(server.mappath(".\"))
Set TextStream = pasta.CreateTextFile("backup.txt")
LinhaCompleta = ""
while not rs.eof
LinhaCompleta = LinhaCompleta &","& rs("email")
rs.movenext
wend
LinhaCompleta = Mid(LinhaCompleta,2,Len(LinhaCompleta)) 'Retirando a 1ª virgula da linha
TextStream.WriteLine(LinhaCompleta)
TextStream.Close
set textstream = nothing
set pasta = nothing
set fso = nothing
set rs= nothing
cn.close
set cn = nothing

response.write "backup feito com sucesso"

%>