Creazione di un file formato RTF

[[trodat]]

Ciao.

Ho delle difficoltà a far scrivere un documento rtf tramite asp; questo è il codice che utilizzo:

sSQL = "select * from tab where id = "&id
Set rs = server.CreateObject("ADODB.Recordset") 
rs.Open sSQL, Cn, 1, 3

if rs.eof then 
...

else

Set fso = CreateObject("Scripting.FileSystemObject")
strTemp = FSO.GetTempName
Set f = fso.OpenTextFile(Server.MapPath("WriteCOD/FileOrigine.rtf"), 1)
Documento = f.ReadAll
f.Close
Set f = Nothing

While Not rs.EOF

nome = rs("nome")
data = rs("dataOperazione")
commenti = rs("commenti")

Documento = Replace(Documento, "[NOME]", nome)
Documento = Replace(Documento, "[DATA]", data)
Documento = Replace(Documento, "[COMMENTI]", commenti)

rs.MoveNext
wend

Set f = fso.OpenTextFile(Server.MapPath("WriteCOD/FileGenerato.rtf"), 2, True)
f.Write Documento
f.Close
Set f = Nothing
Set fso = Nothing

end if

rs.Close
Cn.Close
Set rs = Nothing
Set Cn = Nothing

Il file rtf si crea regolarmente e sostituisce con i nuovi dati estratti dalla query i TAG, ma scrive solo il primo dei record estratti dalla stessa query, nonostante l'oggetto FSO è inserito in un ciclo (almeno credo)... sapete aiutarmi????

Grazie

[kalosjo]

Il ciclo la prima volta sostituisce tutte le occorrenze di "[NOME]", "[DATA]" e "[COMMENTI]" con la riga del recordset.

Dalla seconda in poi non ne trova (li ha sostituiti) quindi non fa nulla...

[[trodat]]

Originariamente inviato da kalosjo
Il ciclo la prima volta sostituisce tutte le occorrenze di "[NOME]", "[DATA]" e "[COMMENTI]" con la riga del recordset.

Dalla seconda in poi non ne trova (li ha sostituiti) quindi non fa nulla...

scusa non capisco cosa vuoi dirmi... come devo fare allora?