<%@ Language = "VBScript" %> <% Select Case Request.Querystring("Action") Case "Send" on error resume next 'Set variables Dim BackURL Dim strName Dim strTel Dim strEmail Dim strSubject Dim strMessage Dim strUserIP Dim strToEmail Dim daCdoMail 'Replace this email with your real email id strToEmail = "info@promotionpro.it" BackURL = Request.ServerVariables("HTTP_REFERER") strName = Request.form("Name") strTel = Request.Form("Tel") strEmail = Request.form("Email") strSubject = Request.form("Subject") strMessage = Request.form("Message") strUserIP = Request.ServerVariables("REMOTE_ADDR") 'Create Mail Object Set daCdoMail = CreateObject("CDONTS.NewMail") daCdoMail.To = strToEmail daCdoMail.From = strEmail daCdoMail.Subject = strSubject daCdoMail.Body = "Questo messaggio stato inviato il " & Now() & "

da " & strName & "

Tel " & strTel & "


" & strMessage & _ "
ASP Contact Form Script Powered by DigitalArakan
" & _ "
http://www.digitalarakan.net" 'You can change the mail body format setting below '0 = HTML, 1 = TEXT daCdoMail.BodyFormat = 0 'You can change the mail format setting below '0 = HTML, 1 = TEXT daCdoMail.MailFormat = 0 '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") = "Sender Email or Resipient Email is blank. This message can not be sent. Please try again" Response.redirect (BackURL) Else 'Now send email to the address you specified at line no. 16 daCdoMail.Send End If 'Destroy mail object Set daCdoMail = Nothing 'Create result text in a Sesion Session("MsgSent") = "La vostra richiesta di " & strSubject & " stata inviata con successo. Grazie per averci contattato." 'Redirect and show the result Response.redirect (BackURL) End Select %> Stampe Digitali <%If Session("msgSent") = "" Then%>
<%If Session("msg") <> "" Then%> <%End If%>
<%Else%>
<%End If 'Destroy session variables Session("MsgSent") = "" Session("msg") = "" %>