Salve ragazzi, so che è un argomento trito e ritrito, ma pur consultando i molti traed relativi, non sono riuscito a risolvere il problema.

il codice è questo.

while not rs.eof
Set fso = CreateObject("Scripting.FileSystemObject")
Set f = fso.OpenTextFile(Server.MapPath("prova.rtf"), 1)
Documento = f.ReadAll
f.Close
Set f = Nothing
Marca = Ucase(RS("marca"))
response.write marca & "
"
Documento2 = Replace(Documento, "[Marca]", Marca)
rs.movenext
Set f = fso.OpenTextFile(Server.MapPath("../attach/Prova.rtf"), 2, True)
f.Write Documento2
f.Close
Set fso = Nothing
wend

il file prova.rtf mi restituisce un solo record anzichè i nove presenti in tabella.
Grazie anticipatamente del vostro aiuto e buona domenica.