Salve a tutti dopo diverso (ho avuto problemi) ho ripreso in mano il progetto, ma nonostante i suggerimenti il file rtf recupera sempre solo un record
codice:
SQL_ass = "SELECT "  ecc. ecc.
set rs_ass = Connes.Execute(SQL_ass)
while not rs_ass.eof

Set fso = CreateObject("Scripting.FileSystemObject")
strTemp = FSO.GetTempName
Set f = fso.OpenTextFile(Server.MapPath("BB_LETTERA_01.rtf"), 1)
'chiudo 
f.Close
Set f = Nothing

var_anno =  rs_ass("ANAG_anno")
var_sigla = rs_ass("ANAG_sigla")
var_nome = rs_ass("ANAG_nome")
var_indi = rs_ass("ANAG_indirizzo")
var_cap = rs_ass("ANAG_cap")
var_citta = rs_ass("ANAG_citta")

Documento = Replace(Documento, "acc_anno", var_anno)
Documento = Replace(Documento, "ass_sigla", var_sigla)
Documento = Replace(Documento, "ass_nome", var_nome)
Documento = Replace(Documento, "ass_ind", var_indi)
Documento = Replace(Documento, "ass_cap", var_cap)
Documento = Replace(Documento, "ass_citta", var_citta)


min = cStr(Minute(Now))

modulo= "../../_STAMPE_PDF/BB_LETTERA_01" & "_m" & min & ".rtf"
Set f = fso.OpenTextFile(Server.MapPath(modulo), 2, True)
'chiudo tutto 
f.Write Documento
f.Close
Set f = Nothing
Set fso = Nothing

rs_ass.movenext
wend
rs_ass.Close
Set rs_ass = Nothing
Mi aiutate ve ne sarei grato - buona serata