<%@ Language = "VBScript" %>
<%
Set oMail = Server.CreateObject("CDO.Message")
Set oMailConfig = Server.CreateObject ("CDO.Configuration")
Select Case Request.Querystring("Action")
Case "Send"
on error resume next
'Set variables
Dim BackURL
Dim strName
Dim strEmail
Dim strSubject
Dim strMessage
Dim strUserIP
Dim strToEmail
Dim daCdoMail
oMailConfig.Fields("http://schemas.microsoft.com/cdo/configuration/smtpserver") = "localhost"
oMailConfig.Fields("http://schemas.microsoft.com/cdo/configuration/smtpserverport") = 25
oMailConfig.Fields("http://schemas.microsoft.com/cdo/configuration/sendusing") = 2
oMailConfig.Fields("http://schemas.microsoft.com/cdo/configuration/smtpconnectiontimeout") = 60
oMailConfig.Fields.Update
'Replace this email with your real email id
strToEmail = "info@solariameridiane.it"
BackURL = Request.ServerVariables("HTTP_REFERER")
strName = Request.form("Name")
strEmail = Request.form("Email")
strUserIP = Request.ServerVariables("REMOTE_ADDR")
'Create Mail Object
Set daCdoMail = CreateObject("CDONTS.NewMail")
oMail.From = strEmail
oMail.To = strToEmail
oMail.Subject = strSubject
oMail.HTMLBody = "Questo messaggio è stato spedito da " & strName & " il " & Now() & ".
" & strMessage & _
" " & _
"Contatta il webmaster per problemi"
'Set Server Side Validation to make sure we got both sender and recipient email Id to send email
If strToEmail = "" OR strEmail = "" Then
Session("msg") = "Il campo Email è vuoto. Il messaggio non può essere spedito. Per cortesia, riprovare."
Response.redirect (BackURL)
Else
'Now send email to the address you specified at line no. 16
oMail.Send
End If
'Destroy mail object
Set oMail = Nothing
'Create result text in a Sesion
Session("MsgSent") = "Messaggio inviato con successo, verrete contattati al più presto. Grazie."
'Redirect and show the result
Response.redirect (BackURL)
End Select
%>
SOLARIA OPERE - MERIDIANE e DECORAZIONE - di Fabio Garnero & C. - Iscrizione
Utilizzando il link sottostante, potrai iscriverti
alla Newsletter di Solaria Opere.
