%
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