Questo codice serve per inserire i dati da un doc rtf già stabilito e inserire i dati dal form direttamente nel documento.
tutto perfetto eccetto quando ho il valore
[strserv]
questa stringa mi contiene in base alla selezione del cliente una riga oppure 6. Il mio problema è come scrivere solo i servizi selezionati?
es.
puoi selezionare i servizi(a-b-c-d-e-f)
hai selezionato solo (c-d)
nella stringa mi deve comparire
C xxx
D yyy
se fosse html scriverei
strserv = "C xxx
D yyy"
ma per il doc cosa devo fare? ho provato con
strserv = "C xxx" & VBcrlf & "D yyy"
strserv = "C xxx" & Chr(13) & Chr(10) & "D yyy"
strserv = "C xxx \n D yyy"
qualsiasi stringa che metto mi scrive la variabile sulla stessa riga
<%
'Per leggere il documento utilizzo FSO
Set fso = CreateObject("Scripting.FileSystemObject")
'doc.rtf e' il documento di base che contiene i tag
Set f = fso.OpenTextFile(Server.MapPath("modulo/modulo.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
strrichiesta="Attivazione"
Documento = Replace(Documento, "[strrichiesta]", strrichiesta)
Documento = Replace(Documento, "[cognome]", Cognome)
Documento = Replace(Documento, "[natoa]", natoa)
Documento = Replace(Documento, "[indirizzo]", indirizzo)
Documento = Replace(Documento, "[cod_fisc]", cod_fisc)
'creo un nuovo documento con Nome e Cognome reali al posto dei TAG
Set f = fso.OpenTextFile(Server.MapPath("modulo/modulo_"& cod_fisc &".rtf"), 2, True)
'chiudo tutto
f.Write Documento
f.Close
Set f = Nothing
Set fso = Nothing
%>
Questo è il modello che potremmo prendere come modulo.rtf
RICHIESTA DI [strrichiesta] DEL DOMINIO REALIZZAZIONE DEL SITO
[strrichiesta] dominio
www. [nomesito]. [estensione]
Il sottoscritto [Cognome] [nome]
Nato:
il: [natoa]
Residente:
indirizzo: [indirizzo]
Codice fiscale: [cod_fisc]
[strserv]

Rispondi quotando