Compilazione file RTF

[vincanto1955]

Salve a tutti ho bisogno di voi con il seguente scritto

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

[cavicchiandrea]

Non sono sicuro, ma secondo me il file devi inserirlo dentro al wend e stamparlo direttamente response.write non con una variabile d'appoggio (documento) che secondo me viene sovrascritto

[Roby_72]

Così dovrebbe mostrarti solo l'ultimo record estratto.
Puoi anche usare una variabile d'appoggio che contenga però tutto il "corpo" centrale del documento.
Se fai la replace una sola volta "fuori" dal ciclo è normale che stampi un solo record, se la fai "dentro" il ciclo allora qualla variabile conterrà via via tutti i record estratti.


Roby

[vincanto1955]

Grazie per la risposta in effetti così mostra solo l'ltimo record ma le ho provate di tutte anche dentro al wend
La lettera da comporre è composta da intestazione e piè di pagina, ha un logo, una tabella e infine è abastanza lunga per poter mettere dentro una variabile di appoggio
Di nuovo grazie e buona gornata

[vincanto1955]

S.O.S. per cortesia

[Roby_72]

Nel wend devi ciclare solo la parte che cambia con i valori del recordset lasciandoti l'originale intatto (altrimenti al secondo giro non avrai nulla da sostituire) e usare quindi una variabile di comodo (appoggio) alla quale aggiungerai tutti i pezzi creati ad ogni ciclo.
E' solo ragionamento.

Provalo con un record e con due record (con 100 sarebbe uguale).

Roby

[vincanto1955]

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

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

[vincanto1955]

s.o.s. vi sono grato

[Roby_72]

Ogni volta sostituisci il contenuto con l'ultimo record...

Roby

[vincanto1955]

ti ringrazio ma scusami: Ogni volta sostituisci il contenuto con l'ultimo record...

????
grazie