Salve a tutti ho bisogno di voi con il seguente scritto

codice:
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

	SQL_ass = "SELECT "  ecc. ecc.

	Set rs_ass = Connes.Execute(SQL_ass)
	while not rs_ass.eof
var_acc				=	var_n_acc
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")
var_prov				=	rs_ass("ANAG_prov")

	rs_ass.movenext
	wend
	rs_ass.Close
	Set rs_ass = Nothing

Documento = Replace(Documento, "acc_anno", var_anno)
Documento = Replace(Documento, "acc_n", var_acc)
Documento = Replace(Documento, "ass_sigla", var_sigla)
Documento = Replace(Documento, "ass_nome", var_nome)

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
In questo modo mi stampa solo una lettera quando ne dovrebbe stampare diverse nel DB vi sono diversi record
Dove capperi sbaglio ???? grazie per l'aiuto e buona serata