Ciao.
come da titolo, ho una pagina asp che prende dei dati da un database e mi crea un file word.

Il file si chiama template.rtf ed è nella stessa cartella di crea.asp

Funziona tutto: mi crea un file "crea.doc" e fin qui va bene

I dati inseriti dentro sono con il replace e i [nomi] .

Adesso, il replace me li sostituisce tutti correttamente eccetto uno ...

mi resta scritto [somma]

vi posto il codice di crea.asp

<%

Dim sc, cn, rs
sc = "driver={Microsoft Access Driver (*.mdb)};dbq="
Set cn = Server.CreateObject("ADODB.Connection")
cn.Open sc & Server.MapPath("../../mdb-database/database.mdb")
Set rs = Server.CreateObject("ADODB.Recordset")

ID=request.querystring("id")

rs.open "SELECT * FROM fatture WHERE id = " & ID, cn,1

' lettura del contenuto dal template
Set fso = CreateObject("Scripting.FileSystemObject")
Set f = fso.OpenTextFile(Server.MapPath("template.rtf"), 1)
Documento = f.ReadAll
f.Close
Set f = Nothing
Set fso = Nothing

numero=rs("numero")

if mid(numero,1,1)="P" then
Documento = Replace(Documento, "[tipo_fattura]", "PROFORMA INVOICE NO.:")
else
Documento = Replace(Documento, "[tipo_fattura]", "INVOICE NO.:")
end if

Documento = Replace(Documento, "[d_emissione]",rs("d_emissione"))
Documento = Replace(Documento, "[d_scadenza]",rs("d_scadenza"))
Documento = Replace(Documento, "[numero]", rs("numero"))
Documento = Replace(Documento, "[denominazione]", rs("denominazione"))
Documento = Replace(Documento, "[indirizzo1]", rs("indirizzo1"))
Documento = Replace(Documento, "[indirizzo2]", rs("indirizzo2"))
Documento = Replace(Documento, "[vat_code]", rs("vat_code"))
Documento = Replace(Documento, "[descrizione]", rs("descrizione"))
Documento = Replace(Documento, "[qta]", rs("quantita"))
Documento = Replace(Documento, "[prezzo]", rs("prezzo"))
Documento = Replace(Documento, "[al_v]", rs("al_vat"))
Documento = Replace(Documento, "[consegna]", rs("scarico"))

if rs("note")<>"" then
Documento = Replace(Documento, "[note]",rs("note"))
else
Documento = Replace(Documento, "[note]"," ")
end if

'calcoli x totale
puivato= rs("prezzo")+rs("prezzo")*rs("al_vat")
totale= puivato*rs("quantita")

Documento = Replace(Documento, "[puiv]", puivato)

'OCCORRENZA CHE NON VIENE SCRITTA
Documento = Replace(Documento, "[somma]", totale)


Documento = Replace(Documento, "[topayment]", totale)

' chiusura
rs.Close
set rs = Nothing
cn.Close
set cn = Nothing

' ContentType e risposta a video
Response.ContentType="application/msword"
Response.Write(documento)

%>