<%
'/// INVIO MAIL
smtpserver = "mail2.waylog.net"
Dim ObjSendMail
Set ObjSendMail = CreateObject("CDO.Message")
'This section provides the configuration information for the remote SMTP server.
ObjSendMail.Configuration.Fields.Item ("http://schemas.microsoft.com/cdo/configuration/sendusing") = 2 'Send the message using the network (SMTP over the network).
ObjSendMail.Configuration.Fields.Item ("http://schemas.microsoft.com/cdo/configuration/smtpserver") = smtpserver
ObjSendMail.Configuration.Fields.Item ("http://schemas.microsoft.com/cdo/configuration/smtpserverport") = 25
ObjSendMail.Configuration.Fields.Item ("http://schemas.microsoft.com/cdo/configuration/smtpusessl") = False 'Use SSL for the connection (True or False)
ObjSendMail.Configuration.Fields.Item ("http://schemas.microsoft.com/cdo/configuration/smtpconnectiontimeout") = 60
ObjSendMail.Configuration.Fields.Item ("http://schemas.microsoft.com/cdo/configuration/smtpauthenticate") = 0 'basic (clear-text) authentication
ObjSendMail.Configuration.Fields.Update
' fine configurazione della mail
acapo = chr(10) + chr(13)
mybody = "" + acapo + "" + acapo + "" + acapo + ""
mybody = mybody + " NOME : " + request.form("nome") + "
"
mybody = mybody + " COGNOME : " + request.form("cognome") + "
"
mybody = mybody + " E-MAIL : " + request.form("email") + "
"
mybody = mybody + " TELEFONO : " + request.form("telefono") + "
"
mybody = mybody + acapo + "" + acapo + ""
ObjSendMail.From = request.form("email")
ObjSendMail.To = "info@lapiastrelladimainetti.com"
ObjSendMail.Subject = "LA PIASTRELLA | Richiesta iscrizione newsletter"
' we are sending a html email.. simply switch the comments around to send a text email instead
ObjSendMail.HTMLBody = mybody
'ObjSendMail.TextBody = MyBody
ObjSendMail.Send
Set ObjSendMail = Nothing
response.redirect ("thanks.html")
%>