<% Option Explicit Dim objNewMail Dim messaggio,E_mail,testo_errore,testo if request.Form("INVIO")<>"" then '(1) E_mail=request.Form("mail") if request.Form("cognome")="" or request.Form("nome")="" or instr(E_mail, "@")<=0 or instr(E_mail, ".")<=0 then '(2) testo_errore="

La richiesta non è corretta

- Completare i campi obbligatori
- Scrivere un indirizzo e-mail valido

" testo=request.Form("note") else '(2) 'create an instance of NewMail Object Set objNewMail = Server.CreateObject("CDONTS.NewMail") ' After an instance of NewMail Object has been created. ' If you like you can use this one line of code to send the mail. ' objNewMail.Send From, To, Subject, Message ' or you can give every value seperate messaggio=messaggio & "Nome: " & request.Form("cognome") & chr(10) messaggio=messaggio & "Cognome: " & request.Form("nome") & chr(10) messaggio=messaggio & "Indirizzo: " & request.Form("indirizzo") & chr(10) messaggio=messaggio & "Telefono: " & request.Form("telefono") & chr(10) messaggio=messaggio & "Laurea: " & request.Form("laurea") & chr(10) messaggio=messaggio & "Laureando: " & request.Form("laureando") & chr(10) messaggio=messaggio & "Richiesta: " & request.Form("note")& chr(10) messaggio=messaggio & "Consenso ai dati: " & request.Form("consenso_dati") objNewMail.From =request.Form("mail") objNewMail.To ="info@gitim.it;ivanazan@tin.it" ' Please replace the "From" and "To" email addresses with your ' own valid email address. objNewMail.Subject = "[" & day(date()) & "-" & month(date()) & "-" & year(date()) & "] Richiesta informazioni modulo WEB " objNewMail.Body = "In data [" & day(date()) & "-" & month(date()) & "-" & year(date()) & "] è arrivata la seguente richiesta:" & chr(10) & chr(10) & messaggio objNewMail.Send ' After the Send method, NewMail Object become Invalid ' You should set it to nothing to relase the memory Set objNewMail = Nothing ' If you want to send another mail ' you have to create a new instance of NewMail Object again. 'Response.Write "Email inviata" 'response.redirect "messaggio.htm" end if '(2) else'(1) testo="Scrivi qui commenti o domande ......" end if '(1) %> GITIM - Il Corso di Psicoterapia - Modulo Informazioni
Salta intestazione e menu con il tasto T
Gruppo Italiano Tecniche Imagerie Mentale
Scuola Italiana di Psicoterapia per le Tecniche Immaginative
di Analisi e Ristrutturazione del Profondo - ITP di Leopoldo Rigo

MODULO INFORMAZIONI

<% if request.Form("INVIO")="" or testo_errore<>"" then response.write testo_errore %>

Per richiedere maggiori informazioni o per un primo contatto telefonico, compilare il modulo sottostante.





<% else response.write "

La sua richiesta è stata inoltrata correttamente allo staff GITIM." end if %>

 

 

 

 

 

 

GITIM | Via Aleardi, 23 Treviso |
e-mail Ivana Zanetti | Tel. 0422/424219 Fax 547829
CF 94033010268 | P.iva 03093500266