<% dim testolog attivolog=0 '---- se attivolog=1 vuol dire che non creo il log------ Function wlog(testolog) dim intModalita dim semaforo_log semaforo_log=0 attivolog=session("log") if attivolog=1 then semaforo_log=1 end if do while semaforo_log=0 Set Fil=CreateObject("Scripting.FileSystemObject") dim strFile if testolog="<>" then intModalita=2 testolog=date()+time() else intModalita=8 end if strFile = server.mapPath("/public/log.txt") Set out=Fil.OpenTextFile(strFile,intModalita,true) out.WriteLine(testolog) out.Close Set out=Nothing Set Fil=Nothing semaforo_log=1 loop End Function '----------------------- session("log")=0 '----------------------- session("nome")="" session("email")="" session("telefono")="" session("chisei")="" session("richiesta")="" session("messaggio")="" session("autorizzo")="" '----------------------- session("provenienza")=0 'Stringax viene attualizzato in contatti_2 nel seguente modo '0 testo NON digitato '1 testo digitato '2 option NON scelta '3 option scelta '9 campo non significativo(digitato o scelto NON interessa) session("stringax")="1,1,1,1,1,1,1,0" 'Guida assume i seguenti valori ' 0 testo facoltativo ' 1 testo OBBLIGATORIO ' 2 Option facoltativo ' 3 option OBBLIGATORIO ' 4 checkbox facoltattivo ' 5 check box OBBLIGATORIO 'Nello specifico va letto cosė guida: 'nome NON obbligatorio 'mail obbligatoria 'telefono NON obbligatorio 'chi sei NON obbligatorio 'Richiesta option OBBLIGATORIO 'messaggio testo facoltativo 'autorizzazione checkbox OBBLIGATORIO session("guida")="9,0,1,0,2,3,1,5" 'il 9 č tappo iniziale č da mettere wlog("<>") wlog("Completato asp0") server.transfer ("contatti_1.asp") %>