creare un file di testo

[asva]

dal mio database clienti

devo prelevare ilcampo telefono rs(telefono")

di tutti i clienti


ed esportare il tutto in un file di testo in modo che ogni numero sia a capo esempio:

[QUOTE+393291234567
+393381234567
+393401234567

[/QUOTE]


si può fare?

[wallrider]

certo!
FileSystemObject

[asva]

allora negli script ho trovato questo:

<%
Dim objFSO, objTextFile

'Creazione dell'istanza FileSystem
Set objFSO = CreateObject("Scripting.FileSystemObject")

'Apertura del file di testo
'Utilizzare, a seconda della necessità, una delle due righe di codice
'Set objTextFile = objFSO.CreateTextFile("C:\InetPub\prova\freeasp.tx t")
Set objTextFile = objFSO.CreateTextFile(Server.MapPath("freeasp.txt" ))

'Scrivo la prima riga di codice
objTextFile.WriteLine "Qui ci scrivo questa riga!!"

'Chiudo il file e i vari oggetti/istanze
objTextFile.Close
Set objTextFile = Nothing
Set objFSO = Nothing
%>

dovendo scrivere nel file il risultato di un record set
dovrei fare così?

[QUOTE
...codice di collegamento al db e apertura record set
<%
Dim objFSO, objTextFile

'Creazione dell'istanza FileSystem
Set objFSO = CreateObject("Scripting.FileSystemObject")

'Apertura del file di testo
'Utilizzare, a seconda della necessità, una delle due righe di codice
'Set objTextFile = objFSO.CreateTextFile("C:\InetPub\prova\freeasp.tx t")
Set objTextFile = objFSO.CreateTextFile(Server.MapPath("freeasp.txt" ))
Do while not rs.eof

'Scrivo la prima riga di codice
objTextFile.WriteLine rs("tel")
rs.Movenext
loop 'Chiudo il file e i vari oggetti/istanze
objTextFile.Close
Set objTextFile = Nothing
Set objFSO = Nothing
%>
...chiusura connessione e record set
[/QUOTE]

[asva]

nessuno mi aiuta?

[Mems]

Originariamente inviato da asva
nessuno mi aiuta?

Che problema hai?

[asva]

ho il problema che il mio computer è in riparazione e devo scrivere le mie routine con un xphome....non avendo la possibilità di provare la pagina prima della pubblicazione ho bisogno di sapere prima se la routine indicata è corretta

[Mems]

objTextFile.WriteLine rs("tel") & vbCrLf

Il resto "sembra" a posto...

[asva]

grazie mems

[Mems]

Originariamente inviato da asva
grazie mems

Pregos.