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)
%>
Rispondi quotando
