Una sola cosa brutta.. se il template lo fai con word... ti sporca un po' le chiavi che devi sostituire ( nel mio codice lo vedi quando faccio il replace )... se lo fai con wordpad non da questo problema ( che cmq è risolvibile !!! )
questo è il codice, buona fortuna !!
:
<!-- RECUPERO DATI DA REQUEST -->
<%
cod_corso = REPLACE(Request.form("cod_corso") , "'", "´")
cod_edizione = REPLACE(Request.form("cod_edizione") , "'", "´")
cod_partecipante = REPLACE(Request.form("cod_partecipante") , "'", "´")
corso = REPLACE(Request.form("corso") , "'", "´")
edizione = REPLACE(Request.form("edizione") , "'", "´")
des_corso = corso & " - " & edizione
dta_ini = REPLACE(Request.form("dta_ini") , "'", "´")
dta_fin = REPLACE(Request.form("dta_fin") , "'", "´")
targa = REPLACE(Request.form("targa") , "'", "´")
comune= REPLACE(Request.form("comune") , "'", "´")
partecipante = REPLACE(Request.form("partecipante") , "'", "´")
indirizzo = REPLACE(Request.form("indirizzo") , "'", "´")
crediti = REPLACE(Request.form("crediti") , "'", "´")
crediti_s = REPLACE(Request.form("crediti_s") , "'", "´")
professione = REPLACE(Request.form("professione") , "'", "´")
comune_nas = REPLACE(Request.form("comune_nas") , "'", "´")
dta_nas = REPLACE(Request.form("dta_nas") , "'", "´")
numero = REPLACE(Request.form("numero") , "'", "´")
data = left(Now,10)
professione = ucase(left(professione,1)) & lcase(right(professione,len(professione)-1))
des_corso = ucase(left(des_corso,1)) & lcase(right(des_corso,len(des_corso)-1))
%>
<!-- CONTROLLO ESISTENZA CARTELLA CON IL CODICE -->
<%
Set fs=Server.CreateObject("Scripting.FileSystemObject")
If fs.FolderExists(Server.MapPath (trim(cod_provider))) = true Then
'La cartella esiste
pathFolder = trim(cod_provider)
Else
'La cartella non esiste
fs.CreateFolder(Server.MapPath(trim(cod_provider)))
pathFolder = cod_provider
End If
set fs=nothing
%>
<!-- CONTROLLO ESISTENZA SOTTOCARTELLE -->
<%
Set fs=Server.CreateObject("Scripting.FileSystemObject")
If fs.FolderExists(Server.MapPath(trim(cod_provider) & "/rtf" )) = true Then
'La cartella esiste
Else
'La cartella non esiste
fs.CreateFolder(Server.MapPath(trim(cod_provider) & "/rtf" ))
End If
set fs=nothing
%>
<!-- PREPARO IL FILE_SYSTEM_OBJECT -->
<%
sSourceXLS = Server.MapPath(".") & "\Template" & "\template.rtf"
sDestXLS = Server.MapPath(".") & "\" & pathFolder & "\rtf\" & trim(partecipante) & ".rtf"
set fs = CreateObject("Scripting.FileSystemObject")
set file_sorg = fs.OpenTextFile(sSourceXLS, 1)
set file_dest = fs.CreateTextFile(sDestXLS,true)
do while not file_sorg.AtEndOfStream
linea = file_sorg.ReadLine
linea = replace(linea,"{\cf17\insrsid2970562 @}{\cf17\insrsid5059015 CORSO}{\cf17\insrsid2970562 @}","{\cf17\insrsid5059015" & des_corso & "}")
linea = replace(linea,"{\cf17\insrsid411982 @}{\cf17\insrsid16530409 N}{\cf17\insrsid8614015 UMERO}{\cf17\insrsid2970562 @}","{\cf17\insrsid16530409 " & numero & "}")
linea = replace(linea,"@COMUNE}{\cf17\insrsid2970562 @}", comune & "}")
linea = replace(linea,"(@TARGA}{\cf17\insrsid2970562 @}","(" & targa & "}")
linea = replace(linea,"@INDIRIZZO}{\cf17\insrsid2970562 @}",indirizzo & "}")
linea = replace(linea,"@DTA_INI}{\cf17\insrsid2970562 @}",dta_ini & "}")
linea = replace(linea,"@DTA_FIN}{\cf17\insrsid2970562 @}",dta_fin & "}")
linea = replace(linea,"@CREDITI}{\cf17\insrsid2970562 @}",crediti & "}")
linea = replace(linea,"@CREDITI}{\b\fs28\cf17\insrsid2970562 @}",crediti & "}")
linea = replace(linea,"@CREDITI_S}{\cf17\insrsid2970562 @}",crediti_s & "}")
linea = replace(linea,"{\b\fs28\cf17\insrsid610905 @}{\b\fs28\cf17\insrsid5059015 CREDITI_S}{\b\fs28\cf17\insrsid2970562 @}","{\b\fs28\cf17\insrsid5059015 " & crediti_s & "}")
linea = replace(linea,"@PARTECIPANTE}{\fs28\cf17\insrsid2970562 @}",partecipante & "}")
linea = replace(linea,"@PROFESSIONE}{\fs28\cf17\insrsid2970562 @}",professione & "}")
linea = replace(linea,"@COM_NAS}{\fs28\cf17\insrsid2970562 @}" , comune_nas & "}")
linea = replace(linea,"@DTA_NAS}{\fs28\cf17\insrsid2970562 @}" , dta_nas & "}")
linea = replace(linea,"@TODAY}{\cf17\insrsid2970562 @}", data & "}")
file_dest.WriteLine(linea)
loop
file_sorg.Close()
file_dest.close
%>
