Salve a tutti ancora ho bisogno di VOI non riesco a risolvere un problema.
Il codice è il seguente (costruito grazie a questo FORUM):

codice:
<%
DIM prot
var_prot=Request.Form("prot")

SQL = "select * from prova where protocollo=" & Request.Form("prot")
Set RS = Connes.Execute(SQL)
While Not rs.EOF
'Per leggere il documento utilizzo FSO 
Set fso = CreateObject("Scripting.FileSystemObject")
strTemp = FSO.GetTempName
Set f = fso.OpenTextFile(Server.MapPath("02_prova.rtf"), 1)
'Leggo tutto il contenuto del documento 
Documento = f.ReadAll
'chiudo 
f.Close
Set f = Nothing

var_ins = rs("inserito")
var_imp = rs("importo")
var_ben = rs("beneficiario")
var_ope = rs("operatore")
var_cap = rs("cap")
var_pro = rs("protocollo")

percorso= rs("protocollo")

Documento = Replace(Documento, "data", var_ins)
Documento = Replace(Documento, "importo", var_imp)
Documento = Replace(Documento, "beneficiario", var_ben)
Documento = Replace(Documento, "operatore", var_ope)
Documento = Replace(Documento, "cap", var_cap)
Documento = Replace(Documento, "protocollo", var_pro)

rs.MoveNext
wend

Set f = fso.OpenTextFile(Server.MapPath("det_WORD\" & percorso & ".rtf"), 2, True)
'chiudo tutto 
f.Write Documento
f.Close
Set f = Nothing
Set fso = Nothing

chiudo(RS)
chiudo_connes()

%>
Elaborazione completata
Però il file prodotto mi restituisce un solo record di var_cap, quando nella tabella ve ne sono di più fino ad un massimo di tre.
Come posso poter esportare anche gli altri record e separarli cin una congiunzione e spazio.
Spero di essere riuscito a farmi capire e VI prego di essere i più semplici possibili data la mia profonda ignoranza.
Grazie Carlo