codice:
<%
'Per leggere il documento utilizzo FSO
Set fso = CreateObject("Scripting.FileSystemObject")
strTemp = FSO.GetTempName
Response.Write "
Codice temporaneo assegnato alla fattura: " & strtemp
'doc.rtf e' il documento di base che contiene i tag
Set f = fso.OpenTextFile(Server.MapPath("fattura.rtf"), 1)
'Leggo tutto il contenuto del documento
Documento = f.ReadAll
'chiudo subito
f.Close
Set f = Nothing
'ora sostituisco i TAG con i campi contenuti nella form
Nome = request("Nome")
via = request("Via")
cap_citta = request("cap_citta")
n_fattura = request("n_fattura")
data = request("data")
descrizione = request("descrizione")
quantita = request("quantita")
prezzo = request("prezzo")
sconto = request("sconto")
finale = request("finale")
cliente = request("cliente")
descrizione1 = request("descrizione1")
quantita1 = request("quantita1")
prezzo1 = request("prezzo1")
sconto1 = request("sconto1")
finale1 = request("finale1")
cliente1 = request("cliente1")
descrizione2 = request("descrizione2")
quantita2 = request("quantita2")
prezzo2 = request("prezzo2")
sconto2 = request("sconto2")
finale2 = request("finale2")
cliente2 = request("cliente2")
descrizione3 = request("descrizione3")
quantita3 = request("quantita3")
prezzo3 = request("prezzo3")
sconto3 = request("sconto3")
finale3 = request("finale3")
cliente3 = request("cliente3")
descrizione4 = request("descrizione4")
quantita4 = request("quantita4")
prezzo4 = request("prezzo4")
sconto4 = request("sconto4")
finale4 = request("finale4")
cliente4 = request("cliente4")
descrizione5 = request("descrizione5")
quantita5 = request("quantita5")
prezzo5 = request("prezzo5")
sconto5 = request("sconto5")
finale5 = request("finale5")
cliente5 = request("cliente5")
descrizione6 = request("descrizione6")
quantita6 = request("quantita6")
prezzo6 = request("prezzo6")
sconto6 = request("sconto6")
finale6 = request("finale6")
cliente6 = request("cliente6")
descrizione7 = request("descrizione7")
quantita7 = request("quantita7")
prezzo7 = request("prezzo7")
sconto7 = request("sconto7")
finale7 = request("finale7")
cliente7 = request("cliente7")
descrizione8 = request("descrizione8")
quantita8 = request("quantita8")
prezzo8 = request("prezzo8")
sconto8 = request("sconto8")
finale8 = request("finale8")
cliente8 = request("cliente8")
descrizione9 = request("descrizione9")
quantita9 = request("quantita9")
prezzo9 = request("prezzo9")
sconto9 = request("sconto9")
finale9 = request("finale9")
cliente9 = request("cliente9")
descrizione10 = request("descrizione10")
quantita10 = request("quantita10")
prezzo10 = request("prezzo10")
sconto10 = request("sconto10")
finale10 = request("finale10")
cliente10 = request("cliente10")
descrizione11 = request("descrizione11")
quantita11 = request("quantita11")
prezzo11 = request("prezzo11")
sconto11 = request("sconto11")
finale11 = request("finale11")
cliente11 = request("cliente11")
descrizione12 = request("descrizione12")
quantita12 = request("quantita12")
prezzo12 = request("prezzo12")
sconto12 = request("sconto12")
finale12 = request("finale12")
cliente12 = request("cliente12")
descrizione13 = request("descrizione13")
quantita13 = request("quantita13")
prezzo13 = request("prezzo13")
sconto13 = request("sconto13")
finale13 = request("finale13")
cliente13 = request("cliente13")
descrizione14 = request("descrizione14")
quantita14 = request("quantita14")
prezzo14 = request("prezzo14")
sconto14 = request("sconto14")
finale14 = request("finale14")
cliente14 = request("cliente14")
descrizione15 = request("descrizione15")
quantita15 = request("quantita15")
prezzo15 = request("prezzo15")
sconto15 = request("sconto15")
finale15 = request("finale15")
cliente15 = request("cliente15")
descrizione16 = request("descrizione16")
quantita16 = request("quantita16")
prezzo16 = request("prezzo16")
sconto16 = request("sconto16")
finale16 = request("finale16")
cliente16 = request("cliente16")
aliquota = request("aliquota")
imponibile = request("imponibile")
imposta = request("imposta")
totale_imponibile = request("totale_imponibile")
totale_iva = request("totale_iva")
totale = request("totale")
codice_fiscale = request("codice_fiscale")
pagamento = request("pagamento")
'Documento = Documento & Replace(Documento, "[nome]", Nome)
'Documento = Documento & Replace(Documento, "[Cognome]", Cognome)
Documento = Replace(Documento, "[nome]", nome)
Documento = Replace(Documento, "[cap_citta]", cap_citta)
Documento = Replace(Documento, "[via]", via)
Documento = Replace(Documento, "[n_fattura]", n_fattura)
Documento = Replace(Documento, "[data]", data)
Documento = Replace(Documento, "[descrizione]", descrizione)
Documento = Replace(Documento, "[quantita]", quantita)
Documento = Replace(Documento, "[prezzo]", prezzo)
Documento = Replace(Documento, "[sconto]", sconto)
Documento = Replace(Documento, "[descrizione]", descrizione)
Documento = Replace(Documento, "[quantita]", quantita)
Documento = Replace(Documento, "[prezzo]", prezzo)
Documento = Replace(Documento, "[sconto]", sconto)
Documento = Replace(Documento, "[finale]", finale)
Documento = Replace(Documento, "[cliente]", cliente)
Documento = Replace(Documento, "[descrizione1]", descrizione1)
Documento = Replace(Documento, "[quantita1]", quantita1)
Documento = Replace(Documento, "[prezzo1]", prezzo1)
Documento = Replace(Documento, "[sconto1]", sconto1)
Documento = Replace(Documento, "[finale1]", finale1)
Documento = Replace(Documento, "[cliente1]", cliente1)
Documento = Replace(Documento, "[descrizione2]", descrizione2)
Documento = Replace(Documento, "[quantita2]", quantita2)
Documento = Replace(Documento, "[prezzo2]", prezzo2)
Documento = Replace(Documento, "[sconto2]", sconto2)
Documento = Replace(Documento, "[finale2]", finale2)
Documento = Replace(Documento, "[cliente2]", cliente2)
Documento = Replace(Documento, "[descrizione3]", descrizione3)
Documento = Replace(Documento, "[quantita3]", quantita3)
Documento = Replace(Documento, "[prezzo3]", prezzo3)
Documento = Replace(Documento, "[sconto3]", sconto3)
Documento = Replace(Documento, "[finale3]", finale3)
Documento = Replace(Documento, "[cliente3]", cliente3)
Documento = Replace(Documento, "[descrizione4]", descrizione4)
Documento = Replace(Documento, "[quantita4]", quantita4)
Documento = Replace(Documento, "[prezzo4]", prezzo4)
Documento = Replace(Documento, "[sconto4]", sconto4)
Documento = Replace(Documento, "[finale4]", finale4)
Documento = Replace(Documento, "[cliente4]", cliente4)
Documento = Replace(Documento, "[descrizione5]", descrizione5)
Documento = Replace(Documento, "[quantita5]", quantita5)
Documento = Replace(Documento, "[prezzo5]", prezzo5)
Documento = Replace(Documento, "[sconto5]", sconto5)
Documento = Replace(Documento, "[finale5]", finale5)
Documento = Replace(Documento, "[cliente5]", cliente5)
Documento = Replace(Documento, "[descrizione6]", descrizione6)
Documento = Replace(Documento, "[quantita6]", quantita6)
Documento = Replace(Documento, "[prezzo6]", prezzo6)
Documento = Replace(Documento, "[sconto6]", sconto6)
Documento = Replace(Documento, "[finale6]", finale6)
Documento = Replace(Documento, "[cliente6]", cliente6)
Documento = Replace(Documento, "[descrizione7]", descrizione7)
Documento = Replace(Documento, "[quantita7]", quantita7)
Documento = Replace(Documento, "[prezzo7]", prezzo7)
Documento = Replace(Documento, "[sconto7]", sconto7)
Documento = Replace(Documento, "[finale7]", finale7)
Documento = Replace(Documento, "[cliente7]", cliente7)
Documento = Replace(Documento, "[descrizione8]", descrizione8)
Documento = Replace(Documento, "[quantita8]", quantita8)
Documento = Replace(Documento, "[prezzo8]", prezzo8)
Documento = Replace(Documento, "[sconto8]", sconto8)
Documento = Replace(Documento, "[finale8]", finale8)
Documento = Replace(Documento, "[cliente8]", cliente8)
Documento = Replace(Documento, "[descrizione9]", descrizione9)
Documento = Replace(Documento, "[quantita9]", quantita9)
Documento = Replace(Documento, "[prezzo9]", prezzo9)
Documento = Replace(Documento, "[sconto9]", sconto9)
Documento = Replace(Documento, "[finale9]", finale9)
Documento = Replace(Documento, "[cliente9]", cliente9)
Documento = Replace(Documento, "[descrizione10]", descrizione10)
Documento = Replace(Documento, "[quantita10]", quantita10)
Documento = Replace(Documento, "[prezzo10]", prezzo10)
Documento = Replace(Documento, "[sconto10]", sconto10)
Documento = Replace(Documento, "[finale10]", finale10)
Documento = Replace(Documento, "[cliente10]", cliente10)
Documento = Replace(Documento, "[descrizione11]", descrizione11)
Documento = Replace(Documento, "[quantita11]", quantita11)
Documento = Replace(Documento, "[prezzo11]", prezzo11)
Documento = Replace(Documento, "[sconto11]", sconto11)
Documento = Replace(Documento, "[finale11]", finale11)
Documento = Replace(Documento, "[cliente11]", cliente11)
Documento = Replace(Documento, "[descrizione12]", descrizione12)
Documento = Replace(Documento, "[quantita12]", quantita12)
Documento = Replace(Documento, "[prezzo12]", prezzo12)
Documento = Replace(Documento, "[sconto12]", sconto12)
Documento = Replace(Documento, "[finale12]", finale12)
Documento = Replace(Documento, "[cliente12]", cliente12)
Documento = Replace(Documento, "[descrizione13]", descrizione13)
Documento = Replace(Documento, "[quantita13]", quantita13)
Documento = Replace(Documento, "[prezzo13]", prezzo13)
Documento = Replace(Documento, "[sconto13]", sconto13)
Documento = Replace(Documento, "[finale13]", finale13)
Documento = Replace(Documento, "[cliente13]", cliente13)
Documento = Replace(Documento, "[descrizione14]", descrizione14)
Documento = Replace(Documento, "[quantita14]", quantita14)
Documento = Replace(Documento, "[prezzo14]", prezzo14)
Documento = Replace(Documento, "[sconto14]", sconto14)
Documento = Replace(Documento, "[finale14]", finale14)
Documento = Replace(Documento, "[cliente14]", cliente14)
Documento = Replace(Documento, "[descrizione15]", descrizione15)
Documento = Replace(Documento, "[quantita15]", quantita15)
Documento = Replace(Documento, "[prezzo15]", prezzo15)
Documento = Replace(Documento, "[sconto15]", sconto15)
Documento = Replace(Documento, "[finale15]", finale15)
Documento = Replace(Documento, "[cliente15]", cliente15)
Documento = Replace(Documento, "[descrizione16]", descrizione16)
Documento = Replace(Documento, "[quantita16]", quantita16)
Documento = Replace(Documento, "[prezzo16]", prezzo16)
Documento = Replace(Documento, "[sconto16]", sconto16)
Documento = Replace(Documento, "[finale16]", finale16)
Documento = Replace(Documento, "[cliente16]", cliente16)
Documento = Replace(Documento, "[finale]", finale)
Documento = Replace(Documento, "[aliquota]", aliquota)
Documento = Replace(Documento, "[imponibile]", imponibile)
Documento = Replace(Documento, "[imposta]", imposta)
Documento = Replace(Documento, "[totale_imponibile]", totale_imponibile)
Documento = Replace(Documento, "[totale_iva]", totale_iva)
Documento = Replace(Documento, "[totale]", totale)
Documento = Replace(Documento, "[codice_fiscale]", codice_fiscale)
Documento = Replace(Documento, "[cliente]", cliente)
Documento = Replace(Documento, "[pagamento]", pagamento)
'creo un nuovo documento con Nome e Cognome reali al posto dei TAG
Set f = fso.OpenTextFile(Server.MapPath("fatturanew.rtf"), 2, True)
'chiudo tutto
f.Write Documento
f.Close
Set f = Nothing
Set fso = Nothing
'code invio email
..........
%>
divertiti !!!!!!!!!!