codice:
<meta http-equiv="Content-Language" content="it">
<%
'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_xxx.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")
Documento = Replace(Documento, "[nome]", nome)
Documento = Replace(Documento, "[cap_citta]", cap_citta)
Documento = Replace(Documento, "[via]", via)
'creo un nuovo documento con Nome e Cognome reali al posto dei TAG
Set f = fso.OpenTextFile(Server.MapPath("fatturanew_xxx.rtf"), 2, True)
'chiudo tutto
f.Write Documento
f.Close
Set f = Nothing
Set fso = Nothing
%>